library(tidyverse)
library(plotly)
library(sf)
library(mapview)
library(tigris)
library(censusapi)
library(leaflet)
library(usmap)
library(lmtest)
library(pracma)
library(lmtest)
library(forecast)
library(vars)
library(rvest)
library(RSelenium)
library(seleniumPipes)
library(dLagM)
library(jsonlite)
library(rgdal)
library(readr)
library(lwgeom)

options(
  tigris_class = "sf",
  tigris_use_cache = TRUE
)

Sys.setenv(CENSUS_KEY="10dcd73d7c043e91bac9fb8d3989cbff54b08790")

# SET your path here to the covid19analysis folder.
sg_path <- '/Users/simonespeizer/pCloud Drive/Shared/SFBI/Restricted Data Library/Safegraph/covid19analysis/'

sg_hourly_path <- '/Users/simonespeizer/pCloud Drive/Shared/SFBI/Restricted Data Library/Safegraph/covid19analysis/weekly-patterns/v2/hourly/'

In this Rmd, I explore the predictive ability of visits over time.

Ability of one week of visits data to predict the change in cases over one week, two weeks later

Linear models and demographics correlations

Here I look at each week of visits data, from Monday to Monday, and see how well that week of visits data predicts the change in cases over one week, two weeks later. The week of visits data includes 7 days; the change in cases is from day 1 through day 8. For example, the first week of visits data, 3/9-3/15, is compared to the change in cases from 3/23 to 3/30.

For each set of dates, the code below outputs five different models:

-For change in cases, using all data

-For change in cases, using only data where the starting number of cases is greater than 0

-For change in log of cases, using only data where the starting number of cases is greater than 0

-For change in cases, using only data where the starting number of cases is greater than or equal to 10

-For change in log of cases, using only data where the starting number of cases is greater than or equal to 10

Each of these is run as just visits and change in (log of) cases in a model, as well as visits + demographic variables and change in (log of) cases.

# load the data
# load block groups and their correspondence to ZCTAs
ac_bg_zctas <- readRDS("Simone_Speizer/ac_bg_ztcas.rds")

ac_bgs <- ac_bg_zctas %>% pull(blockgroup)

# load the case data
# note this is downloaded manually
ac_place_cases <- read.csv("Simone_Speizer/Alameda_County_Cumulative_Cases_By_Place_And_Zip.csv")

# handle the ones that are reported as <10 by calling them 5 cases. Note this is a simplification/choice I made and could be changed.
ac_cases_zip <- ac_place_cases %>% 
  rename(date = DtCreate) %>%
  mutate(date = date %>%  substr(1,10) %>% as.Date()) %>%
  dplyr::select(c(date, contains("F9"))) %>% # only select zip code data
  gather(key = "zipcode", value = "cases", -date) %>%
  mutate(cases = ifelse(cases == "<10", "5", cases), 
         zipcode = zipcode %>% substr(2,6)) %>% # replace cases <10 with 10 and remove the "F" from zipcode names
  mutate(cases = as.numeric(cases)) %>%
  arrange(date)

# get Alameda County populations by zip code
# census data
acs_vars = readRDS("Simone_Speizer/censusData2018_acs_acs5.rds")

# define a function for pulling census data
pullCensus <- function(variableToPull, county) {
    regionString <- paste0("state:06+county:", county)
    censusData <- getCensus(
      name = "acs/acs5",
      vintage = 2018,
      region = "block group:*", 
      regionin = regionString,
      vars = variableToPull
    ) %>%
    mutate(blockgroup = paste0(state,county,tract,block_group)) %>%
      select_if(!names(.) %in% c("GEO_ID","state","county","tract","block_group","NAME"))
  
  return(censusData)
}

# get population data
ac_fips <- fips("CA", "Alameda") %>% substr(3,5)
ac_pop_zip <- pullCensus("B01003_001E", ac_fips) %>% 
  left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_pop_zip = sum(B01003_001E))

# join with cases
ac_cases_zip <- ac_cases_zip %>% left_join(ac_pop_zip) %>%
  mutate(cases_by_pop = cases / total_pop_zip)

# load the visits data, weighted, version 1. this also contains the unweighted data in the total_visits column
ac_visits_zip_1 <- readRDS(paste0(sg_path, "weekly-patterns/v2/ac_zip_visits_daily_sum_hourly_weighted_v1_03-09-20_05-24-20.rds"))
ac_visits_zip_2 <- readRDS(paste0(sg_path, "weekly-patterns/v2/ac_zip_visits_daily_sum_hourly_weighted_v1_05-25-20_07-05-20.rds"))
ac_visits_zip <- rbind(ac_visits_zip_1, ac_visits_zip_2)

# calculate cumulative visits over time
ac_cum_visits_zip <- ac_visits_zip %>% 
  dplyr::select(zipcode, date, total_visits) %>%
  mutate(total_visits = replace_na(total_visits, 0)) %>% # replace NAs with zero so they don't lead to NAs all following that date
  group_by(zipcode) %>%
  mutate(cumulative_visits = cumsum(total_visits)) %>%
  left_join(ac_pop_zip) %>%
  mutate(cum_visits_per_capita = cumulative_visits / total_pop_zip)

# get visits per capita
ac_visits_zip <- ac_visits_zip %>% left_join(ac_pop_zip) %>%
  mutate(weighted_visits_per_capita = total_weighted_visits / total_pop_zip,
         weighted_visit_hours_per_capita = total_weighted_visit_hours / total_pop_zip,
          weighted_visit_hours_per_capita_v2 = total_weighted_visit_hours_v2 / total_pop_zip,
         visits_per_capita = total_visits / total_pop_zip,
         visit_hours_per_capita = total_visit_hours / total_pop_zip,
         visits_per_area_per_capita = total_visits_per_area / total_pop_zip)
# function to make plots (which doesn't seem to work in a loop) and run analyses based on given weeks of data
# note that this sets up to be able to compare to visit hours as well
# visits_zip has the daily visits data, cases_zip the daily cases data, cases_start_date is the first date for cases data to look at, time_window_length is the length of time over which to look at change in cases (in days), visits_lag is the lag on the visits data relative to the cases data (in days), dem_data is the zip code level demographic data, county_name is the name of the county as a string  
# returns the coefficient on visits, the p value of that coefficient, and the r squared of the model for 5 different models -- all data and change in cases, only nonzero starting cases and change in cases, only nonzero starting cases and change in log of cases, only >= 10 starting cases and change in cases, and only >= 10 starting cases and change in log of cases
testVisitsPrediction <- function(visits_zip, cases_zip, cases_start_date, time_window_length, visits_lag, dem_data, county_name) {

  cases_end_date_inc <- cases_start_date + time_window_length
  visits_start_date <- cases_start_date - visits_lag
  visits_end_date_exc <- visits_start_date + time_window_length
  
  print(paste0("Cases start date: ", cases_start_date))
  print(paste0("Visits start date: ", visits_start_date))
  
  init_cases <- cases_zip %>% 
  filter(date == cases_start_date) %>%
  dplyr::select(zipcode, cases_by_pop, cases) %>%
  rename(init_cases_by_pop = cases_by_pop, init_cases = cases) %>%
  mutate(log_init_cases_by_pop = log(init_cases_by_pop))

  # max cases (end date)
  final_cases <- cases_zip %>% 
  filter(date == cases_end_date_inc) %>%
  dplyr::select(zipcode, cases_by_pop, total_pop_zip, cases) %>%
  rename(fin_cases_by_pop = cases_by_pop, fin_cases = cases) %>%
  mutate(log_fin_cases_by_pop = log(fin_cases_by_pop))

  # summarize visits add current and initial cases
  visits_cases_change <- visits_zip %>%
  filter(date >= visits_start_date & date < visits_end_date_exc) %>%
  filter(!is.na(zipcode) & !is.na(total_visits)) %>%
  group_by(zipcode) %>%
  summarize(total_visits_per_capita = sum(visits_per_capita),
            # total_weighted_visits_per_capita = sum(weighted_visits_per_capita),
            # total_weighted_visit_hours_per_capita = sum(weighted_visit_hours_per_capita),
            # total_weighted_visit_hours_per_capita_v2 = sum(weighted_visit_hours_per_capita_v2),
            # total_visit_hours_per_capita = sum(visit_hours_per_capita),
            # total_visits_per_area_per_capita = sum(visits_per_area_per_capita),
            total_visits = sum(total_visits)) %>%
  left_join(final_cases) %>%
  left_join(init_cases) %>%
  filter(!is.na(fin_cases_by_pop)) %>%
  mutate(change_log_cases_by_pop = log_fin_cases_by_pop - log_init_cases_by_pop,
         change_cases_by_pop = fin_cases_by_pop - init_cases_by_pop)
  
  visits_cases_change_start_non0 <- visits_cases_change %>% filter(init_cases_by_pop > 0)

# get linear model values
visits_cases_change_model <- lm(change_cases_by_pop ~ total_visits_per_capita, visits_cases_change)
visits_cases_change_model_non0 <- lm(change_cases_by_pop ~ total_visits_per_capita, visits_cases_change_start_non0)
visits_cases_change_model_log <- lm(change_log_cases_by_pop ~ total_visits_per_capita, visits_cases_change_start_non0)

  # plots and output the model values
  plot_1 <- visits_cases_change %>%
  plot_ly() %>%
  add_trace(x = ~total_visits_per_capita, y = ~change_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
  add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model)$r.squared, ", slope: ", visits_cases_change_model$coefficients[2])) %>%
  layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in cases per person from ', cases_start_date, " to ", cases_end_date_inc)), title = county_name)
  print(summary(visits_cases_change_model))
  print("Control for demographic variables:")
  visits_cases_change_dem <- left_join(visits_cases_change, dem_data)
  print(summary(lm(change_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem)))
  
  plot_1
  
  # exclude ones that started with zero
  plot_2 <- visits_cases_change_start_non0 %>%
  plot_ly() %>%
  add_trace(x = ~total_visits_per_capita, y = ~change_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
  add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model_non0), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model_non0)$r.squared, ", slope: ", visits_cases_change_model_non0$coefficients[2])) %>%
  layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in cases per person from ', cases_start_date, " to ", cases_end_date_inc)), title = paste0(county_name, "only nonzero starting cases"))
  print(summary(visits_cases_change_model_non0))
  print("Control for demographic variables:")
  visits_cases_change_non0_dem <- left_join(visits_cases_change_start_non0, dem_data)
  print(summary(lm(change_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
  
  plot_2
  
  # log of cases
  plot_3 <- visits_cases_change_start_non0 %>%
  plot_ly() %>%
  add_trace(x = ~total_visits_per_capita, y = ~change_log_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
  add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model_log), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model_log)$r.squared, ", slope: ", visits_cases_change_model_log$coefficients[2])) %>%
  layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in log(cases per person) from ', cases_start_date, " to ", cases_end_date_inc)), title = paste0(county_name, "only nonzero starting cases"))
  print(summary(visits_cases_change_model_log))
  print("Control for demographic variables:")
  print(summary(lm(change_log_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
  
  plot_3
  
  # try excluding values that started below 10 cases
  visits_cases_change_exc <- visits_cases_change %>% filter(init_cases >= 10)
  visits_cases_change_model_exc <- NA
  visits_cases_change_model_exc_log <- NA
  
  if (nrow(visits_cases_change_exc) > 0) {
    visits_cases_change_model_exc <- lm(change_cases_by_pop ~ total_visits_per_capita, visits_cases_change_exc)
    visits_cases_change_model_exc_log <- lm(change_log_cases_by_pop ~ total_visits_per_capita, visits_cases_change_exc)
    
    # plots and output the model values
  plot_4 <- visits_cases_change_exc %>%
  plot_ly() %>%
  add_trace(x = ~total_visits_per_capita, y = ~change_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
  add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model_exc), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model_exc)$r.squared, ", slope: ", visits_cases_change_model_exc$coefficients[2])) %>%
  layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in cases per person from ', cases_start_date, " to ", cases_end_date_inc)), title = paste0(county_name, "only starting cases >= 10"))
  print(summary(visits_cases_change_model_exc))
  print("Control for demographic variables:")
  visits_cases_change_dem_exc <- left_join(visits_cases_change_exc, dem_data)
  print(summary(lm(change_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
  
  plot_4
  
  # log of cases
  plot_5<- visits_cases_change_exc %>%
  plot_ly() %>%
  add_trace(x = ~total_visits_per_capita, y = ~change_log_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
  add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model_exc_log), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model_exc_log)$r.squared, ", slope: ", visits_cases_change_model_exc_log$coefficients[2])) %>%
  layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in log(cases per person) from ', cases_start_date, " to ", cases_end_date_inc)), title = paste0(county_name, "only starting cases >= 10"))
  print(summary(visits_cases_change_model_exc_log))
  print("Control for demographic variables:")
  print(summary(lm(change_log_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
  
  plot_5
  }

  return_vals <- data.frame(model_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)
  
  cases_change <- data.frame("change in cases", summary(visits_cases_change_model)$coefficients[2,1], summary(visits_cases_change_model)$coefficients[2,4], summary(visits_cases_change_model)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
  colnames(cases_change) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
  
  cases_change_no0 <- data.frame("change in cases, starting above 0", summary(visits_cases_change_model_non0)$coefficients[2,1], summary(visits_cases_change_model_non0)$coefficients[2,4], summary(visits_cases_change_model_non0)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
  colnames(cases_change_no0) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
  
  cases_change_log <- data.frame("change in log of cases, starting above 0", summary(visits_cases_change_model_log)$coefficients[2,1], summary(visits_cases_change_model_log)$coefficients[2,4], summary(visits_cases_change_model_log)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
  colnames(cases_change_log) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
  
  return_vals <- rbind(return_vals, cases_change, cases_change_no0, cases_change_log)
  
  # include the later two if there was more than one point in the model
  if (nrow(visits_cases_change_exc) > 1) {
    cases_change_10 <- data.frame("change in cases, starting above 10", summary(visits_cases_change_model_exc)$coefficients[2,1], summary(visits_cases_change_model_exc)$coefficients[2,4], summary(visits_cases_change_model_exc)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
  colnames(cases_change_10) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
  
  cases_change_10_log <- data.frame("change in log of cases, starting above 10", summary(visits_cases_change_model_exc_log)$coefficients[2,1], summary(visits_cases_change_model_exc_log)$coefficients[2,4], summary(visits_cases_change_model_exc_log)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
  colnames(cases_change_10_log) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
  
  return_vals <- rbind(return_vals, cases_change_10, cases_change_10_log)
  }
  
  return(return_vals)
}


# pull AC demographic data
zctas_94 <- 
  zctas(cb = F, starts_with = "94") %>% 
  st_transform('+proj=longlat +datum=WGS84') %>%
  dplyr::select(ZCTA5CE10, geometry)

zctas_95 <- 
  zctas(cb = F, starts_with = "95") %>% 
  st_transform('+proj=longlat +datum=WGS84') %>%
  dplyr::select(ZCTA5CE10, geometry)

zctas_94_95 <- rbind(zctas_94, zctas_95)

ac_pop_bg <- pullCensus("B01003_001E", ac_fips) %>% 
  rename(total_pop = B01003_001E)

# average household size
ac_avg_household_size <- pullCensus("B25010_001E", ac_fips) %>% 
  filter(B25010_001E > 0) %>%
  left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  left_join(ac_pop_bg) %>%
  group_by(zipcode) %>%
  summarize(avg_household_size = weighted.mean(B25010_001E, total_pop)) %>%
  filter(!is.na(zipcode))

# occupants per room
ac_occupants_zip <- pullCensus("group(B25014)", ac_fips) %>% 
  dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>% 
  gather(key = "variable", value = "estimate", -blockgroup) %>% 
  mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>% 
  dplyr::select(-variable) %>% 
  separate(label, into = c(NA, NA, NA,"occupants per room"), sep = "!!") %>% 
  filter(!is.na(`occupants per room`)) %>%
  group_by(blockgroup, `occupants per room`) %>%
  summarize(estimate_tot = sum(estimate)) %>% 
  spread(key = `occupants per room`, value = estimate_tot) %>%
  mutate(total_nums = `0.50 or less occupants per room` + `0.51 to 1.00 occupants per room` + `1.01 to 1.50 occupants per room` + `1.51 to 2.00 occupants per room` + `2.01 or more occupants per room`) %>%
  left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_nums = sum(total_nums), total_0.5less = sum(`0.50 or less occupants per room`), total_0.5to1 = sum(`0.51 to 1.00 occupants per room`), total_1to1.5 = sum(`1.01 to 1.50 occupants per room`), total_1.5to2 = sum(`1.51 to 2.00 occupants per room`), total_2more = sum(`2.01 or more occupants per room`)) %>%
  mutate(`percent more than 1 occupant` = (total_1to1.5 + total_1.5to2 + total_2more) * 100/ total_nums, `percent less than 1 occupant` = (100-`percent more than 1 occupant`), `percent 0.5 or less occupants` = total_0.5less*100/total_nums, `percent more than 0.5 occupants` = (100-`percent 0.5 or less occupants`), `percent more than 2 occupants` = total_2more*100/total_nums)

# population density
ac_pop_density_zip <- ac_cases_zip %>% filter(date == max(date)) %>%
  dplyr::select(zipcode, total_pop_zip) %>%
  left_join(zctas_94_95, by = c("zipcode" = "ZCTA5CE10")) %>%
  st_as_sf() %>%
  mutate(zip_area = st_area(.), pop_density = total_pop_zip / zip_area) %>%
  filter(!is.na(pop_density))

# bucketed household size
ac_house_size_zip <- pullCensus("group(B11016)", ac_fips) %>% 
  dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>% 
  gather(key = "variable", value = "estimate", -blockgroup) %>% 
  mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>% 
  dplyr::select(-variable) %>% 
  separate(label, into = c(NA, NA, "type", "size"), sep = "!!") %>% 
  filter(!is.na(type)) %>%
  filter(!is.na(size)) %>% 
  dplyr::select(-type) %>%
  group_by(blockgroup, size) %>%
  summarize(`total of this size` = sum(estimate)) %>% 
  spread(key = size, value = `total of this size`) %>%
  mutate(total_nums = `1-person household` + `2-person household` + `3-person household` + `4-person household` + `5-person household`+ `6-person household` + `7-or-more person household`) %>%
  left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_nums = sum(total_nums), total_1 = sum(`1-person household`), total_2 = sum(`2-person household`), total_3 = sum(`3-person household`), total_4 = sum(`4-person household`), total_5 = sum(`5-person household`), total_6 = sum(`6-person household`), total_7more = sum(`7-or-more person household`)) %>%
  mutate(`percent 5 or more` = (total_5 + total_6 + total_7more)* 100/ total_nums, `percent 1 or 2 only` = (total_1 + total_2)*100/total_nums)

# units in structure
ac_units_zip <- pullCensus("group(B25024)", ac_fips) %>% dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>% 
  gather(key = "variable", value = "estimate", -blockgroup) %>% 
  mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>% 
  dplyr::select(-variable) %>% 
  separate(label, into = c(NA, NA, "units"), sep = "!!") %>% 
  filter(!is.na(units)) %>%
  spread(key = units, value = estimate) %>%
  mutate(total_nums = `1, attached` + `1, detached` + `10 to 19` + `2` + `20 to 49`+ `3 or 4` + `5 to 9`+ `50 or more`+ `Boat, RV, van, etc.`+ `Mobile home`, total_20more = `20 to 49`+`50 or more`, total_10more = `10 to 19` + `20 to 49`+`50 or more`, total_1 = `1, attached` + `1, detached`) %>%
  left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_nums = sum(total_nums), total_20more = sum(total_20more), total_10more = sum(total_20more), total_1_only = sum(total_1)) %>%
  mutate(`percent 10 or more units` = total_10more*100/total_nums, `percent 20 or more units` = total_20more*100/total_nums, `percent 1 only` = total_1_only*100/total_nums, `percent more than 1 unit` = (100 - `percent 1 only`))

# income
ac_income_zip <- pullCensus("group(B19001)", ac_fips) %>% dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>% 
  gather(key = "variable", value = "estimate", -blockgroup) %>% 
  mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>% 
  dplyr::select(-variable) %>% 
  separate(label, into = c(NA, NA, "income"), sep = "!!") %>% 
  filter(!is.na(income)) %>%
  spread(key = income, value = estimate) %>%
  mutate(total_nums = `Less than $10,000` + `$10,000 to $14,999` + `$15,000 to $19,999` + `$20,000 to $24,999` + `$25,000 to $29,999` + `$30,000 to $34,999` + `$35,000 to $39,999` + `$40,000 to $44,999` + `$45,000 to $49,999` + `$50,000 to $59,999` + `$60,000 to $74,999` + `$75,000 to $99,999` + `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_75000 = `$75,000 to $99,999` + `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_100000 = `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_125000 = `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`) %>%
  left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_nums = sum(total_nums), total_over_75000 = sum(over_75000), total_over_100000 = sum(over_100000), total_over_125000 = sum(over_125000)) %>%
  mutate(percent_over_75000 = total_over_75000*100 / total_nums,
         percent_under_75000 = (100 - percent_over_75000),
         percent_over_100000 = total_over_100000*100 / total_nums,
         percent_under_100000 = (100 - percent_over_100000),
         percent_over_125000 = total_over_125000*100 / total_nums,
        percent_under_125000 = (100 - percent_over_125000))

# median age
ac_median_age_zip <- pullCensus("B01002_001E", ac_fips) %>% 
  rename(median_age = B01002_001E) %>%
  filter(median_age > 0) %>% # remove invalid results
  left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  left_join(ac_pop_bg) %>%
  group_by(zipcode) %>%
  summarize(avg_median_age = weighted.mean(median_age, total_pop)) %>%
  filter(!is.na(zipcode))

ac_dem_data <- left_join(ac_avg_household_size, ac_pop_density_zip %>% dplyr::select(pop_density, zipcode)) %>% 
  left_join(ac_occupants_zip %>% dplyr::select(`percent more than 1 occupant`, `percent more than 0.5 occupants`, `percent more than 2 occupants`, zipcode)) %>%
  left_join(ac_units_zip %>% dplyr::select(`percent 10 or more units`, `percent more than 1 unit`, zipcode)) %>% 
  left_join(ac_income_zip %>% dplyr::select(percent_under_75000, percent_under_100000, percent_under_125000, zipcode)) %>% 
  left_join(ac_median_age_zip) %>%
  as.data.frame() %>% 
  filter(!is.na(zipcode) & !is.na(avg_household_size))
cases_start_date <- as.Date("2020-03-23") # first cases start date to use
visits_lag <- 14 # in days
time_window_length <- 7 # in days

# data frame to store results
model_results_1 <- data.frame(model_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)

while(cases_start_date + time_window_length <= max(ac_cases_zip$date)) {
  model_results_curr <- testVisitsPrediction(ac_visits_zip, ac_cases_zip, cases_start_date, time_window_length, visits_lag, ac_dem_data, "Alameda")

  model_results_1 <- rbind(model_results_1, model_results_curr)

  cases_start_date <- cases_start_date + time_window_length # run again with new start date
}
## [1] "Cases start date: 2020-03-23"
## [1] "Visits start date: 2020-03-09"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.068e-04 -7.349e-05 -4.120e-05  6.408e-05  2.498e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -5.004e-05  8.337e-05  -0.600    0.551
## total_visits_per_capita  1.617e-05  1.086e-05   1.488    0.144
## 
## Residual standard error: 0.0001049 on 44 degrees of freedom
## Multiple R-squared:  0.04794,    Adjusted R-squared:  0.0263 
## F-statistic: 2.215 on 1 and 44 DF,  p-value: 0.1438
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.059e-04 -7.592e-05 -2.299e-05  2.735e-05  2.713e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -2.797e-04  5.828e-04  -0.480    0.634
## total_visits_per_capita         1.157e-05  1.785e-05   0.648    0.521
## percent_under_125000            1.267e-06  2.011e-06   0.630    0.533
## avg_household_size              1.498e-05  1.286e-04   0.116    0.908
## pop_density                    -8.377e-03  1.044e-02  -0.803    0.427
## `percent more than 1 occupant`  2.932e-06  9.044e-06   0.324    0.748
## `percent more than 1 unit`      2.222e-07  2.220e-06   0.100    0.921
## avg_median_age                  3.526e-06  6.358e-06   0.555    0.582
## 
## Residual standard error: 0.0001083 on 38 degrees of freedom
## Multiple R-squared:  0.1242, Adjusted R-squared:  -0.0371 
## F-statistic:  0.77 on 7 and 38 DF,  p-value: 0.6158
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.021e-04 -6.955e-05 -3.520e-05  3.221e-05  2.387e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -8.730e-05  8.915e-05  -0.979   0.3336  
## total_visits_per_capita  1.953e-05  1.142e-05   1.711   0.0953 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 9.947e-05 on 38 degrees of freedom
## Multiple R-squared:  0.0715, Adjusted R-squared:  0.04706 
## F-statistic: 2.926 on 1 and 38 DF,  p-value: 0.09531
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.152e-04 -6.658e-05 -2.446e-05  4.385e-05  2.341e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -5.324e-04  5.547e-04  -0.960    0.344
## total_visits_per_capita         2.186e-05  1.779e-05   1.229    0.228
## percent_under_125000            1.657e-06  1.898e-06   0.873    0.389
## avg_household_size             -3.998e-06  1.219e-04  -0.033    0.974
## pop_density                    -8.245e-03  1.135e-02  -0.726    0.473
## `percent more than 1 occupant`  7.716e-06  9.511e-06   0.811    0.423
## `percent more than 1 unit`      4.672e-07  2.098e-06   0.223    0.825
## avg_median_age                  7.384e-06  6.396e-06   1.154    0.257
## 
## Residual standard error: 9.946e-05 on 32 degrees of freedom
## Multiple R-squared:  0.2181, Adjusted R-squared:  0.04712 
## F-statistic: 1.275 on 7 and 32 DF,  p-value: 0.2935
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.5648 -0.3693 -0.1631  0.3159  1.4305 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              -0.5721     0.4483  -1.276   0.2096  
## total_visits_per_capita   0.1172     0.0574   2.042   0.0482 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.5002 on 38 degrees of freedom
## Multiple R-squared:  0.09885,    Adjusted R-squared:  0.07513 
## F-statistic: 4.168 on 1 and 38 DF,  p-value: 0.04817
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.69312 -0.33574 -0.08586  0.25185  0.97640 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     -2.981253   2.696788  -1.105    0.277
## total_visits_per_capita          0.116534   0.086481   1.348    0.187
## percent_under_125000             0.005886   0.009228   0.638    0.528
## avg_household_size               0.034057   0.592696   0.057    0.955
## pop_density                    -31.770826  55.185870  -0.576    0.569
## `percent more than 1 occupant`   0.052922   0.046239   1.145    0.261
## `percent more than 1 unit`       0.002811   0.010199   0.276    0.785
## avg_median_age                   0.040399   0.031096   1.299    0.203
## 
## Residual standard error: 0.4836 on 32 degrees of freedom
## Multiple R-squared:  0.2907, Adjusted R-squared:  0.1356 
## F-statistic: 1.874 on 7 and 32 DF,  p-value: 0.1071
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             0.0002004         NA      NA       NA
## total_visits_per_capita        NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0.0002004         NA      NA       NA
## total_visits_per_capita               NA         NA      NA       NA
## percent_under_125000                  NA         NA      NA       NA
## avg_household_size                    NA         NA      NA       NA
## pop_density                           NA         NA      NA       NA
## `percent more than 1 occupant`        NA         NA      NA       NA
## `percent more than 1 unit`            NA         NA      NA       NA
## avg_median_age                        NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)               0.5878         NA      NA       NA
## total_visits_per_capita       NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.5878         NA      NA       NA
## total_visits_per_capita              NA         NA      NA       NA
## percent_under_125000                 NA         NA      NA       NA
## avg_household_size                   NA         NA      NA       NA
## pop_density                          NA         NA      NA       NA
## `percent more than 1 occupant`       NA         NA      NA       NA
## `percent more than 1 unit`           NA         NA      NA       NA
## avg_median_age                       NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Cases start date: 2020-03-30"
## [1] "Visits start date: 2020-03-16"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.109e-04 -1.207e-04 -3.550e-05  3.002e-05  5.100e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -6.022e-05  1.265e-04  -0.476   0.6364  
## total_visits_per_capita  5.632e-05  2.943e-05   1.914   0.0621 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001725 on 44 degrees of freedom
## Multiple R-squared:  0.07686,    Adjusted R-squared:  0.05587 
## F-statistic: 3.663 on 1 and 44 DF,  p-value: 0.06215
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.975e-04 -9.189e-05 -8.398e-06  8.461e-05  2.862e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     1.217e-04  7.685e-04   0.158 0.875000    
## total_visits_per_capita        -3.883e-05  4.084e-05  -0.951 0.347732    
## percent_under_125000            7.031e-06  2.687e-06   2.617 0.012666 *  
## avg_household_size              1.455e-04  1.655e-04   0.880 0.384611    
## pop_density                    -6.064e-02  1.517e-02  -3.996 0.000285 ***
## `percent more than 1 occupant` -1.278e-05  1.182e-05  -1.080 0.286777    
## `percent more than 1 unit`      1.808e-06  2.951e-06   0.613 0.543712    
## avg_median_age                 -1.155e-05  8.540e-06  -1.352 0.184395    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001436 on 38 degrees of freedom
## Multiple R-squared:  0.4473, Adjusted R-squared:  0.3455 
## F-statistic: 4.393 on 7 and 38 DF,  p-value: 0.00118
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.100e-04 -9.143e-05 -2.046e-05  4.448e-05  4.478e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -2.213e-04  1.140e-04  -1.942  0.05887 . 
## total_visits_per_capita  8.958e-05  2.620e-05   3.419  0.00141 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001455 on 42 degrees of freedom
## Multiple R-squared:  0.2177, Adjusted R-squared:  0.1991 
## F-statistic: 11.69 on 1 and 42 DF,  p-value: 0.00141
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.657e-04 -9.178e-05 -9.541e-06  4.867e-05  2.885e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     8.015e-05  7.121e-04   0.113  0.91102   
## total_visits_per_capita        -9.111e-06  4.016e-05  -0.227  0.82180   
## percent_under_125000            5.744e-06  2.568e-06   2.236  0.03162 * 
## avg_household_size              6.894e-05  1.554e-04   0.443  0.66008   
## pop_density                    -5.150e-02  1.602e-02  -3.215  0.00275 **
## `percent more than 1 occupant` -3.806e-06  1.131e-05  -0.337  0.73833   
## `percent more than 1 unit`      4.344e-07  2.804e-06   0.155  0.87774   
## avg_median_age                 -7.304e-06  8.066e-06  -0.905  0.37125   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001323 on 36 degrees of freedom
## Multiple R-squared:  0.4459, Adjusted R-squared:  0.3381 
## F-statistic: 4.138 on 7 and 36 DF,  p-value: 0.001978
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.68122 -0.25019  0.05312  0.23317  0.57918 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             -0.72842    0.26327  -2.767  0.00838 ** 
## total_visits_per_capita  0.29279    0.06054   4.836 1.81e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3362 on 42 degrees of freedom
## Multiple R-squared:  0.3577, Adjusted R-squared:  0.3424 
## F-statistic: 23.39 on 1 and 42 DF,  p-value: 1.807e-05
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.54049 -0.17483 -0.04517  0.09964  0.61872 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -3.000e-01  1.696e+00  -0.177  0.86058   
## total_visits_per_capita         8.431e-02  9.563e-02   0.882  0.38380   
## percent_under_125000            6.194e-03  6.116e-03   1.013  0.31797   
## avg_household_size              1.910e-01  3.702e-01   0.516  0.60912   
## pop_density                    -1.082e+02  3.814e+01  -2.838  0.00742 **
## `percent more than 1 occupant`  6.530e-03  2.692e-02   0.243  0.80972   
## `percent more than 1 unit`      4.991e-03  6.677e-03   0.747  0.45964   
## avg_median_age                 -1.046e-02  1.921e-02  -0.545  0.58944   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.315 on 36 degrees of freedom
## Multiple R-squared:  0.5166, Adjusted R-squared:  0.4226 
## F-statistic: 5.496 on 7 and 36 DF,  p-value: 0.0002348
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.322e-04 -9.107e-05 -6.920e-05  1.250e-04  2.313e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -1.620e-04  4.092e-04  -0.396    0.700
## total_visits_per_capita  9.120e-05  8.628e-05   1.057    0.313
## 
## Residual standard error: 0.0001596 on 11 degrees of freedom
## Multiple R-squared:  0.09221,    Adjusted R-squared:  0.009682 
## F-statistic: 1.117 on 1 and 11 DF,  p-value: 0.3132
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##          1          2          3          4          5          6          7 
## -9.146e-05 -3.054e-05  6.911e-05 -1.390e-05  1.458e-04 -8.110e-05 -1.775e-06 
##          8          9         10         11         12         13 
## -3.132e-05 -2.450e-06 -4.450e-05  1.558e-04 -4.655e-05 -2.706e-05 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -5.527e-03  2.689e-03  -2.055   0.0950 .
## total_visits_per_capita         9.561e-05  1.368e-04   0.699   0.5157  
## percent_under_125000            1.625e-05  5.921e-06   2.745   0.0406 *
## avg_household_size             -4.643e-04  6.770e-04  -0.686   0.5234  
## pop_density                    -1.673e-01  1.216e-01  -1.376   0.2271  
## `percent more than 1 occupant`  1.023e-04  8.416e-05   1.215   0.2785  
## `percent more than 1 unit`     -7.183e-07  1.259e-05  -0.057   0.9567  
## avg_median_age                  1.316e-04  7.237e-05   1.818   0.1287  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001202 on 5 degrees of freedom
## Multiple R-squared:  0.766,  Adjusted R-squared:  0.4384 
## F-statistic: 2.338 on 7 and 5 DF,  p-value: 0.1834
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.33915 -0.17259 -0.05682  0.15421  0.39574 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              -0.4547     0.6062  -0.750    0.469
## total_visits_per_capita   0.2247     0.1278   1.758    0.107
## 
## Residual standard error: 0.2364 on 11 degrees of freedom
## Multiple R-squared:  0.2193, Adjusted R-squared:  0.1484 
## F-statistic:  3.09 on 1 and 11 DF,  p-value: 0.1065
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        1        2        3        4        5        6        7        8 
## -0.10466 -0.10402  0.03989 -0.04984  0.32826 -0.05850  0.03969 -0.20406 
##        9       10       11       12       13 
##  0.06758  0.02129  0.21454 -0.15994 -0.03024 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -8.237e+00  5.080e+00  -1.621    0.166
## total_visits_per_capita         2.015e-01  2.584e-01   0.780    0.471
## percent_under_125000            2.062e-02  1.119e-02   1.843    0.125
## avg_household_size             -6.399e-02  1.279e+00  -0.050    0.962
## pop_density                    -1.479e+02  2.296e+02  -0.644    0.548
## `percent more than 1 occupant`  8.043e-02  1.590e-01   0.506    0.634
## `percent more than 1 unit`      5.089e-03  2.379e-02   0.214    0.839
## avg_median_age                  1.575e-01  1.367e-01   1.152    0.301
## 
## Residual standard error: 0.2271 on 5 degrees of freedom
## Multiple R-squared:  0.6726, Adjusted R-squared:  0.2143 
## F-statistic: 1.468 on 7 and 5 DF,  p-value: 0.3477
## 
## [1] "Cases start date: 2020-04-06"
## [1] "Visits start date: 2020-03-23"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.913e-04 -1.046e-04 -4.534e-05  1.032e-04  3.594e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -1.827e-04  1.040e-04  -1.756  0.08602 . 
## total_visits_per_capita  7.607e-05  2.351e-05   3.235  0.00231 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001413 on 44 degrees of freedom
## Multiple R-squared:  0.1922, Adjusted R-squared:  0.1738 
## F-statistic: 10.47 on 1 and 44 DF,  p-value: 0.00231
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.241e-04 -8.057e-05 -2.549e-05  6.255e-05  3.352e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -1.026e-04  6.831e-04  -0.150   0.8814  
## total_visits_per_capita         1.302e-05  3.404e-05   0.383   0.7041  
## percent_under_125000            5.750e-06  2.322e-06   2.476   0.0178 *
## avg_household_size              5.565e-05  1.450e-04   0.384   0.7032  
## pop_density                    -2.268e-02  1.314e-02  -1.726   0.0925 .
## `percent more than 1 occupant` -1.585e-06  1.051e-05  -0.151   0.8810  
## `percent more than 1 unit`     -1.112e-06  2.621e-06  -0.424   0.6737  
## avg_median_age                 -5.356e-06  7.873e-06  -0.680   0.5005  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001266 on 38 degrees of freedom
## Multiple R-squared:  0.4403, Adjusted R-squared:  0.3372 
## F-statistic: 4.271 on 7 and 38 DF,  p-value: 0.001446
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.913e-04 -1.046e-04 -4.534e-05  1.032e-04  3.594e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -1.827e-04  1.040e-04  -1.756  0.08602 . 
## total_visits_per_capita  7.607e-05  2.351e-05   3.235  0.00231 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001413 on 44 degrees of freedom
## Multiple R-squared:  0.1922, Adjusted R-squared:  0.1738 
## F-statistic: 10.47 on 1 and 44 DF,  p-value: 0.00231
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.241e-04 -8.057e-05 -2.549e-05  6.255e-05  3.352e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -1.026e-04  6.831e-04  -0.150   0.8814  
## total_visits_per_capita         1.302e-05  3.404e-05   0.383   0.7041  
## percent_under_125000            5.750e-06  2.322e-06   2.476   0.0178 *
## avg_household_size              5.565e-05  1.450e-04   0.384   0.7032  
## pop_density                    -2.268e-02  1.314e-02  -1.726   0.0925 .
## `percent more than 1 occupant` -1.585e-06  1.051e-05  -0.151   0.8810  
## `percent more than 1 unit`     -1.112e-06  2.621e-06  -0.424   0.6737  
## avg_median_age                 -5.356e-06  7.873e-06  -0.680   0.5005  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001266 on 38 degrees of freedom
## Multiple R-squared:  0.4403, Adjusted R-squared:  0.3372 
## F-statistic: 4.271 on 7 and 38 DF,  p-value: 0.001446
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.33233 -0.19322 -0.08256  0.13873  0.77624 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -0.34256    0.20614  -1.662  0.10367   
## total_visits_per_capita  0.14748    0.04659   3.166  0.00281 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2799 on 44 degrees of freedom
## Multiple R-squared:  0.1855, Adjusted R-squared:  0.167 
## F-statistic: 10.02 on 1 and 44 DF,  p-value: 0.002806
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.36865 -0.19135 -0.04087  0.09633  0.76207 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -1.943228   1.509189  -1.288    0.206
## total_visits_per_capita         0.087066   0.075198   1.158    0.254
## percent_under_125000            0.005283   0.005129   1.030    0.310
## avg_household_size              0.391323   0.320292   1.222    0.229
## pop_density                     3.702724  29.028637   0.128    0.899
## `percent more than 1 occupant` -0.014654   0.023224  -0.631    0.532
## `percent more than 1 unit`      0.004819   0.005790   0.832    0.410
## avg_median_age                  0.008619   0.017395   0.495    0.623
## 
## Residual standard error: 0.2796 on 38 degrees of freedom
## Multiple R-squared:  0.2983, Adjusted R-squared:  0.169 
## F-statistic: 2.308 on 7 and 38 DF,  p-value: 0.04602
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.925e-04 -1.185e-04 -4.579e-05  1.155e-04  3.563e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -1.356e-05  2.323e-04  -0.058    0.954
## total_visits_per_capita  4.481e-05  4.855e-05   0.923    0.364
## 
## Residual standard error: 0.0001533 on 28 degrees of freedom
## Multiple R-squared:  0.02953,    Adjusted R-squared:  -0.00513 
## F-statistic: 0.852 on 1 and 28 DF,  p-value: 0.3639
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.870e-04 -7.465e-05 -1.602e-05  5.033e-05  3.064e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     8.558e-04  8.721e-04   0.981   0.3371  
## total_visits_per_capita        -2.150e-05  5.288e-05  -0.407   0.6882  
## percent_under_125000            5.366e-06  2.755e-06   1.948   0.0643 .
## avg_household_size             -8.693e-06  2.216e-04  -0.039   0.9691  
## pop_density                    -4.095e-02  2.396e-02  -1.709   0.1015  
## `percent more than 1 occupant`  1.646e-07  1.765e-05   0.009   0.9926  
## `percent more than 1 unit`     -1.829e-06  3.555e-06  -0.514   0.6120  
## avg_median_age                 -1.896e-05  1.115e-05  -1.700   0.1031  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001288 on 22 degrees of freedom
## Multiple R-squared:  0.4617, Adjusted R-squared:  0.2904 
## F-statistic: 2.695 on 7 and 22 DF,  p-value: 0.03541
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.34597 -0.18974 -0.05812  0.12537  0.52224 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -0.34530    0.38121  -0.906   0.3728  
## total_visits_per_capita  0.15077    0.07965   1.893   0.0688 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2515 on 28 degrees of freedom
## Multiple R-squared:  0.1134, Adjusted R-squared:  0.08178 
## F-statistic: 3.583 on 1 and 28 DF,  p-value: 0.06875
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.26653 -0.17445 -0.00980  0.08331  0.59507 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      1.375788   1.700943   0.809    0.427
## total_visits_per_capita          0.064373   0.103136   0.624    0.539
## percent_under_125000             0.001274   0.005373   0.237    0.815
## avg_household_size              -0.115079   0.432200  -0.266    0.793
## pop_density                    -24.002901  46.739356  -0.514    0.613
## `percent more than 1 occupant`   0.014368   0.034419   0.417    0.680
## `percent more than 1 unit`      -0.002373   0.006935  -0.342    0.735
## avg_median_age                  -0.027107   0.021752  -1.246    0.226
## 
## Residual standard error: 0.2512 on 22 degrees of freedom
## Multiple R-squared:  0.3051, Adjusted R-squared:  0.08394 
## F-statistic:  1.38 on 7 and 22 DF,  p-value: 0.2628
## 
## [1] "Cases start date: 2020-04-13"
## [1] "Visits start date: 2020-03-30"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.577e-04 -1.317e-04 -5.181e-05  5.600e-05  1.161e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.892e-04  1.388e-04  -1.363   0.1797  
## total_visits_per_capita  8.605e-05  3.267e-05   2.634   0.0116 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002303 on 44 degrees of freedom
## Multiple R-squared:  0.1362, Adjusted R-squared:  0.1166 
## F-statistic: 6.938 on 1 and 44 DF,  p-value: 0.0116
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.973e-04 -1.080e-04 -2.874e-05  4.025e-05  9.933e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     6.058e-04  1.138e-03   0.532   0.5975  
## total_visits_per_capita        -1.479e-05  5.614e-05  -0.263   0.7936  
## percent_under_125000            8.596e-06  4.057e-06   2.119   0.0407 *
## avg_household_size             -2.869e-04  2.430e-04  -1.181   0.2451  
## pop_density                    -2.703e-02  2.377e-02  -1.137   0.2626  
## `percent more than 1 occupant`  3.183e-05  1.741e-05   1.828   0.0754 .
## `percent more than 1 unit`     -6.925e-06  4.334e-06  -1.598   0.1183  
## avg_median_age                  3.084e-07  1.277e-05   0.024   0.9809  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002106 on 38 degrees of freedom
## Multiple R-squared:  0.3759, Adjusted R-squared:  0.261 
## F-statistic:  3.27 on 7 and 38 DF,  p-value: 0.008103
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.577e-04 -1.317e-04 -5.181e-05  5.600e-05  1.161e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.892e-04  1.388e-04  -1.363   0.1797  
## total_visits_per_capita  8.605e-05  3.267e-05   2.634   0.0116 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002303 on 44 degrees of freedom
## Multiple R-squared:  0.1362, Adjusted R-squared:  0.1166 
## F-statistic: 6.938 on 1 and 44 DF,  p-value: 0.0116
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.973e-04 -1.080e-04 -2.874e-05  4.025e-05  9.933e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     6.058e-04  1.138e-03   0.532   0.5975  
## total_visits_per_capita        -1.479e-05  5.614e-05  -0.263   0.7936  
## percent_under_125000            8.596e-06  4.057e-06   2.119   0.0407 *
## avg_household_size             -2.869e-04  2.430e-04  -1.181   0.2451  
## pop_density                    -2.703e-02  2.377e-02  -1.137   0.2626  
## `percent more than 1 occupant`  3.183e-05  1.741e-05   1.828   0.0754 .
## `percent more than 1 unit`     -6.925e-06  4.334e-06  -1.598   0.1183  
## avg_median_age                  3.084e-07  1.277e-05   0.024   0.9809  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002106 on 38 degrees of freedom
## Multiple R-squared:  0.3759, Adjusted R-squared:  0.261 
## F-statistic:  3.27 on 7 and 38 DF,  p-value: 0.008103
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.29290 -0.13603 -0.02956  0.06329  0.70589 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -0.16692    0.13042  -1.280  0.20729   
## total_visits_per_capita  0.08855    0.03070   2.884  0.00606 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2164 on 44 degrees of freedom
## Multiple R-squared:  0.159,  Adjusted R-squared:  0.1399 
## F-statistic: 8.317 on 1 and 44 DF,  p-value: 0.006057
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.26307 -0.08973 -0.03162  0.03439  0.64884 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.091380   1.017672  -0.090   0.9289  
## total_visits_per_capita         0.036540   0.050214   0.728   0.4713  
## percent_under_125000            0.005099   0.003629   1.405   0.1681  
## avg_household_size             -0.246772   0.217371  -1.135   0.2634  
## pop_density                     5.122509  21.258546   0.241   0.8109  
## `percent more than 1 occupant`  0.035060   0.015574   2.251   0.0302 *
## `percent more than 1 unit`     -0.003794   0.003876  -0.979   0.3339  
## avg_median_age                  0.010457   0.011426   0.915   0.3659  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1884 on 38 degrees of freedom
## Multiple R-squared:  0.4497, Adjusted R-squared:  0.3483 
## F-statistic: 4.435 on 7 and 38 DF,  p-value: 0.001101
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.895e-04 -1.338e-04 -4.668e-05  3.076e-05  1.157e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -2.831e-04  3.218e-04  -0.880    0.386
## total_visits_per_capita  1.103e-04  6.997e-05   1.576    0.125
## 
## Residual standard error: 0.0002584 on 31 degrees of freedom
## Multiple R-squared:  0.07415,    Adjusted R-squared:  0.04429 
## F-statistic: 2.483 on 1 and 31 DF,  p-value: 0.1252
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.223e-04 -1.166e-04 -3.753e-05  3.165e-05  8.624e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     9.544e-04  1.447e-03   0.659   0.5156  
## total_visits_per_capita        -6.964e-05  1.089e-04  -0.639   0.5283  
## percent_under_125000            1.005e-05  4.913e-06   2.047   0.0514 .
## avg_household_size             -4.046e-04  3.494e-04  -1.158   0.2577  
## pop_density                    -4.579e-02  3.612e-02  -1.268   0.2166  
## `percent more than 1 occupant`  4.214e-05  2.615e-05   1.612   0.1196  
## `percent more than 1 unit`     -1.022e-05  5.991e-06  -1.706   0.1003  
## avg_median_age                  6.849e-06  1.831e-05   0.374   0.7115  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002389 on 25 degrees of freedom
## Multiple R-squared:  0.3615, Adjusted R-squared:  0.1827 
## F-statistic: 2.022 on 7 and 25 DF,  p-value: 0.09222
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.32570 -0.12637 -0.03891  0.04850  0.70407 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -0.27536    0.26028  -1.058   0.2983  
## total_visits_per_capita  0.11574    0.05659   2.045   0.0494 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.209 on 31 degrees of freedom
## Multiple R-squared:  0.1189, Adjusted R-squared:  0.09048 
## F-statistic: 4.184 on 1 and 31 DF,  p-value: 0.04939
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23917 -0.08182 -0.03794  0.03267  0.56558 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.284805   1.149357   0.248    0.806
## total_visits_per_capita        -0.008769   0.086492  -0.101    0.920
## percent_under_125000            0.006361   0.003902   1.630    0.116
## avg_household_size             -0.265916   0.277491  -0.958    0.347
## pop_density                    -0.740556  28.687991  -0.026    0.980
## `percent more than 1 occupant`  0.034742   0.020765   1.673    0.107
## `percent more than 1 unit`     -0.007158   0.004758  -1.504    0.145
## avg_median_age                  0.009394   0.014541   0.646    0.524
## 
## Residual standard error: 0.1898 on 25 degrees of freedom
## Multiple R-squared:  0.4139, Adjusted R-squared:  0.2498 
## F-statistic: 2.522 on 7 and 25 DF,  p-value: 0.04153
## 
## [1] "Cases start date: 2020-04-20"
## [1] "Visits start date: 2020-04-06"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.754e-04 -1.115e-04 -3.454e-05  2.709e-05  1.113e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.353e-04  1.301e-04  -1.040    0.304  
## total_visits_per_capita  6.940e-05  3.296e-05   2.105    0.041 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002055 on 44 degrees of freedom
## Multiple R-squared:  0.09152,    Adjusted R-squared:  0.07087 
## F-statistic: 4.433 on 1 and 44 DF,  p-value: 0.041
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.905e-04 -7.521e-05 -3.391e-05  4.995e-05  9.173e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.524e-03  1.008e-03   1.512   0.1388  
## total_visits_per_capita         1.784e-05  4.802e-05   0.371   0.7124  
## percent_under_125000            6.577e-06  3.437e-06   1.914   0.0632 .
## avg_household_size             -4.260e-04  2.195e-04  -1.941   0.0597 .
## pop_density                    -3.528e-02  1.987e-02  -1.776   0.0838 .
## `percent more than 1 occupant`  2.785e-05  1.539e-05   1.810   0.0782 .
## `percent more than 1 unit`     -7.615e-06  3.888e-06  -1.958   0.0575 .
## avg_median_age                 -1.223e-05  1.108e-05  -1.104   0.2766  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001872 on 38 degrees of freedom
## Multiple R-squared:  0.3489, Adjusted R-squared:  0.2289 
## F-statistic: 2.908 on 7 and 38 DF,  p-value: 0.01546
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.754e-04 -1.115e-04 -3.454e-05  2.709e-05  1.113e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.353e-04  1.301e-04  -1.040    0.304  
## total_visits_per_capita  6.940e-05  3.296e-05   2.105    0.041 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002055 on 44 degrees of freedom
## Multiple R-squared:  0.09152,    Adjusted R-squared:  0.07087 
## F-statistic: 4.433 on 1 and 44 DF,  p-value: 0.041
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.905e-04 -7.521e-05 -3.391e-05  4.995e-05  9.173e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.524e-03  1.008e-03   1.512   0.1388  
## total_visits_per_capita         1.784e-05  4.802e-05   0.371   0.7124  
## percent_under_125000            6.577e-06  3.437e-06   1.914   0.0632 .
## avg_household_size             -4.260e-04  2.195e-04  -1.941   0.0597 .
## pop_density                    -3.528e-02  1.987e-02  -1.776   0.0838 .
## `percent more than 1 occupant`  2.785e-05  1.539e-05   1.810   0.0782 .
## `percent more than 1 unit`     -7.615e-06  3.888e-06  -1.958   0.0575 .
## avg_median_age                 -1.223e-05  1.108e-05  -1.104   0.2766  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001872 on 38 degrees of freedom
## Multiple R-squared:  0.3489, Adjusted R-squared:  0.2289 
## F-statistic: 2.908 on 7 and 38 DF,  p-value: 0.01546
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14030 -0.06907 -0.03088  0.04138  0.33001 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -0.10040    0.06794  -1.478  0.14661   
## total_visits_per_capita  0.05644    0.01722   3.278  0.00205 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1073 on 44 degrees of freedom
## Multiple R-squared:  0.1962, Adjusted R-squared:  0.178 
## F-statistic: 10.74 on 1 and 44 DF,  p-value: 0.002049
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.183701 -0.065891  0.002695  0.032633  0.284958 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.293551   0.538239   0.545   0.5887  
## total_visits_per_capita         0.055689   0.025644   2.172   0.0362 *
## percent_under_125000            0.002018   0.001836   1.100   0.2785  
## avg_household_size             -0.169193   0.117213  -1.443   0.1571  
## pop_density                    -6.199466  10.611418  -0.584   0.5625  
## `percent more than 1 occupant`  0.012543   0.008218   1.526   0.1352  
## `percent more than 1 unit`     -0.001476   0.002077  -0.711   0.4814  
## avg_median_age                 -0.001371   0.005917  -0.232   0.8180  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09996 on 38 degrees of freedom
## Multiple R-squared:  0.3977, Adjusted R-squared:  0.2868 
## F-statistic: 3.585 on 7 and 38 DF,  p-value: 0.004658
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.788e-04 -1.261e-04 -7.176e-05  3.339e-05  1.078e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             2.197e-05  2.979e-04   0.074    0.942
## total_visits_per_capita 3.685e-05  7.000e-05   0.526    0.602
## 
## Residual standard error: 0.0002339 on 32 degrees of freedom
## Multiple R-squared:  0.008585,   Adjusted R-squared:  -0.0224 
## F-statistic: 0.2771 on 1 and 32 DF,  p-value: 0.6022
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.854e-04 -1.174e-04 -5.299e-05  5.336e-05  8.040e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.943e-03  1.270e-03   1.530   0.1381  
## total_visits_per_capita        -3.861e-05  1.007e-04  -0.383   0.7045  
## percent_under_125000            7.694e-06  4.175e-06   1.843   0.0768 .
## avg_household_size             -5.321e-04  3.091e-04  -1.722   0.0970 .
## pop_density                    -5.345e-02  2.947e-02  -1.814   0.0813 .
## `percent more than 1 occupant`  3.510e-05  2.256e-05   1.556   0.1319  
## `percent more than 1 unit`     -9.259e-06  5.333e-06  -1.736   0.0944 .
## avg_median_age                 -9.061e-06  1.631e-05  -0.556   0.5833  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002123 on 26 degrees of freedom
## Multiple R-squared:  0.3365, Adjusted R-squared:  0.1578 
## F-statistic: 1.884 on 7 and 26 DF,  p-value: 0.1135
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15772 -0.06566 -0.01973  0.06574  0.29150 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.09393    0.14396   0.652    0.519
## total_visits_per_capita  0.01500    0.03383   0.443    0.661
## 
## Residual standard error: 0.113 on 32 degrees of freedom
## Multiple R-squared:  0.006103,   Adjusted R-squared:  -0.02496 
## F-statistic: 0.1965 on 1 and 32 DF,  p-value: 0.6606
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.19405 -0.05393 -0.01391  0.03399  0.25158 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.681162   0.645432   1.055    0.301
## total_visits_per_capita         0.027812   0.051153   0.544    0.591
## percent_under_125000            0.002213   0.002121   1.043    0.306
## avg_household_size             -0.177948   0.157052  -1.133    0.268
## pop_density                    -6.994159  14.973481  -0.467    0.644
## `percent more than 1 occupant`  0.009237   0.011462   0.806    0.428
## `percent more than 1 unit`     -0.001809   0.002710  -0.668    0.510
## avg_median_age                 -0.006590   0.008287  -0.795    0.434
## 
## Residual standard error: 0.1079 on 26 degrees of freedom
## Multiple R-squared:  0.2649, Adjusted R-squared:  0.06695 
## F-statistic: 1.338 on 7 and 26 DF,  p-value: 0.2726
## 
## [1] "Cases start date: 2020-04-27"
## [1] "Visits start date: 2020-04-13"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.777e-04 -9.729e-05 -5.981e-05  5.238e-05  4.977e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -1.854e-04  9.983e-05  -1.857  0.07004 . 
## total_visits_per_capita  7.119e-05  2.183e-05   3.261  0.00215 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001575 on 44 degrees of freedom
## Multiple R-squared:  0.1947, Adjusted R-squared:  0.1764 
## F-statistic: 10.64 on 1 and 44 DF,  p-value: 0.002147
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.062e-04 -8.515e-05 -1.882e-05  4.073e-05  2.762e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -3.779e-04  6.844e-04  -0.552    0.584  
## total_visits_per_capita         1.113e-05  2.895e-05   0.384    0.703  
## percent_under_125000            2.720e-06  2.443e-06   1.114    0.272  
## avg_household_size             -6.039e-05  1.469e-04  -0.411    0.683  
## pop_density                     1.003e-03  1.352e-02   0.074    0.941  
## `percent more than 1 occupant`  2.624e-05  1.041e-05   2.522    0.016 *
## `percent more than 1 unit`     -9.665e-07  2.614e-06  -0.370    0.714  
## avg_median_age                  8.080e-06  7.575e-06   1.067    0.293  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001266 on 38 degrees of freedom
## Multiple R-squared:  0.5507, Adjusted R-squared:  0.468 
## F-statistic: 6.655 on 7 and 38 DF,  p-value: 3.671e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.777e-04 -9.729e-05 -5.981e-05  5.238e-05  4.977e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -1.854e-04  9.983e-05  -1.857  0.07004 . 
## total_visits_per_capita  7.119e-05  2.183e-05   3.261  0.00215 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001575 on 44 degrees of freedom
## Multiple R-squared:  0.1947, Adjusted R-squared:  0.1764 
## F-statistic: 10.64 on 1 and 44 DF,  p-value: 0.002147
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.062e-04 -8.515e-05 -1.882e-05  4.073e-05  2.762e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -3.779e-04  6.844e-04  -0.552    0.584  
## total_visits_per_capita         1.113e-05  2.895e-05   0.384    0.703  
## percent_under_125000            2.720e-06  2.443e-06   1.114    0.272  
## avg_household_size             -6.039e-05  1.469e-04  -0.411    0.683  
## pop_density                     1.003e-03  1.352e-02   0.074    0.941  
## `percent more than 1 occupant`  2.624e-05  1.041e-05   2.522    0.016 *
## `percent more than 1 unit`     -9.665e-07  2.614e-06  -0.370    0.714  
## avg_median_age                  8.080e-06  7.575e-06   1.067    0.293  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001266 on 38 degrees of freedom
## Multiple R-squared:  0.5507, Adjusted R-squared:  0.468 
## F-statistic: 6.655 on 7 and 38 DF,  p-value: 3.671e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16184 -0.08065 -0.04651  0.04044  0.58123 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -0.06620    0.09888  -0.669   0.5067  
## total_visits_per_capita  0.04472    0.02162   2.068   0.0445 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.156 on 44 degrees of freedom
## Multiple R-squared:  0.08861,    Adjusted R-squared:  0.06789 
## F-statistic: 4.278 on 1 and 44 DF,  p-value: 0.04452
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14174 -0.08094 -0.04972  0.02702  0.60497 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.4586019  0.8748162  -0.524    0.603
## total_visits_per_capita         0.0509959  0.0370091   1.378    0.176
## percent_under_125000            0.0005486  0.0031226   0.176    0.861
## avg_household_size             -0.0028093  0.1877740  -0.015    0.988
## pop_density                    18.2005460 17.2795584   1.053    0.299
## `percent more than 1 occupant`  0.0044301  0.0133009   0.333    0.741
## `percent more than 1 unit`      0.0000646  0.0033414   0.019    0.985
## avg_median_age                  0.0065847  0.0096837   0.680    0.501
## 
## Residual standard error: 0.1618 on 38 degrees of freedom
## Multiple R-squared:  0.1531, Adjusted R-squared:  -0.002888 
## F-statistic: 0.9815 on 7 and 38 DF,  p-value: 0.4589
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.832e-04 -1.088e-04 -6.531e-05  6.538e-05  4.868e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -3.447e-04  2.273e-04  -1.516   0.1392  
## total_visits_per_capita  1.035e-04  4.613e-05   2.244   0.0319 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001729 on 32 degrees of freedom
## Multiple R-squared:  0.136,  Adjusted R-squared:  0.109 
## F-statistic: 5.036 on 1 and 32 DF,  p-value: 0.03188
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.172e-04 -8.677e-05  7.818e-06  6.038e-05  2.855e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -3.723e-04  7.579e-04  -0.491    0.627
## total_visits_per_capita         2.299e-06  5.190e-05   0.044    0.965
## percent_under_125000            2.543e-06  2.535e-06   1.003    0.325
## avg_household_size              2.694e-05  1.716e-04   0.157    0.876
## pop_density                    -3.575e-03  1.739e-02  -0.206    0.839
## `percent more than 1 occupant`  2.136e-05  1.332e-05   1.604    0.121
## `percent more than 1 unit`      1.414e-06  3.140e-06   0.450    0.656
## avg_median_age                  1.514e-06  9.555e-06   0.158    0.875
## 
## Residual standard error: 0.0001249 on 26 degrees of freedom
## Multiple R-squared:  0.6336, Adjusted R-squared:  0.5349 
## F-statistic: 6.422 on 7 and 26 DF,  p-value: 0.0001908
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14786 -0.06316 -0.03267  0.06739  0.25531 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -0.06832    0.13633  -0.501    0.620
## total_visits_per_capita  0.04239    0.02767   1.532    0.135
## 
## Residual standard error: 0.1037 on 32 degrees of freedom
## Multiple R-squared:  0.06834,    Adjusted R-squared:  0.03923 
## F-statistic: 2.347 on 1 and 32 DF,  p-value: 0.1353
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.108159 -0.054392 -0.008662  0.034373  0.231112 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.3370771  0.5057060  -0.667    0.511
## total_visits_per_capita         0.0369093  0.0346346   1.066    0.296
## percent_under_125000           -0.0004162  0.0016915  -0.246    0.808
## avg_household_size              0.0684040  0.1144946   0.597    0.555
## pop_density                     8.5383626 11.6049447   0.736    0.468
## `percent more than 1 occupant`  0.0037451  0.0088894   0.421    0.677
## `percent more than 1 unit`      0.0030470  0.0020954   1.454    0.158
## avg_median_age                 -0.0011763  0.0063760  -0.184    0.855
## 
## Residual standard error: 0.08336 on 26 degrees of freedom
## Multiple R-squared:  0.511,  Adjusted R-squared:  0.3794 
## F-statistic: 3.881 on 7 and 26 DF,  p-value: 0.005082
## 
## [1] "Cases start date: 2020-05-04"
## [1] "Visits start date: 2020-04-20"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.234e-04 -1.354e-04 -2.627e-05  7.060e-05  7.530e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -2.173e-04  1.217e-04  -1.786  0.08105 . 
## total_visits_per_capita  8.577e-05  2.766e-05   3.100  0.00337 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001901 on 44 degrees of freedom
## Multiple R-squared:  0.1793, Adjusted R-squared:  0.1606 
## F-statistic: 9.613 on 1 and 44 DF,  p-value: 0.003366
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.816e-04 -6.621e-05 -8.290e-06  6.271e-05  3.642e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -2.395e-04  7.180e-04  -0.334  0.74052   
## total_visits_per_capita         2.455e-05  3.141e-05   0.781  0.43937   
## percent_under_125000            3.241e-06  2.581e-06   1.256  0.21688   
## avg_household_size             -1.107e-04  1.538e-04  -0.720  0.47594   
## pop_density                     8.086e-03  1.478e-02   0.547  0.58761   
## `percent more than 1 occupant`  3.332e-05  1.103e-05   3.022  0.00448 **
## `percent more than 1 unit`     -2.096e-06  2.759e-06  -0.760  0.45215   
## avg_median_age                  5.752e-06  7.895e-06   0.729  0.47069   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001341 on 38 degrees of freedom
## Multiple R-squared:  0.6473, Adjusted R-squared:  0.5823 
## F-statistic: 9.961 on 7 and 38 DF,  p-value: 5.366e-07
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.234e-04 -1.354e-04 -2.627e-05  7.060e-05  7.530e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -2.173e-04  1.217e-04  -1.786  0.08105 . 
## total_visits_per_capita  8.577e-05  2.766e-05   3.100  0.00337 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001901 on 44 degrees of freedom
## Multiple R-squared:  0.1793, Adjusted R-squared:  0.1606 
## F-statistic: 9.613 on 1 and 44 DF,  p-value: 0.003366
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.816e-04 -6.621e-05 -8.290e-06  6.271e-05  3.642e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -2.395e-04  7.180e-04  -0.334  0.74052   
## total_visits_per_capita         2.455e-05  3.141e-05   0.781  0.43937   
## percent_under_125000            3.241e-06  2.581e-06   1.256  0.21688   
## avg_household_size             -1.107e-04  1.538e-04  -0.720  0.47594   
## pop_density                     8.086e-03  1.478e-02   0.547  0.58761   
## `percent more than 1 occupant`  3.332e-05  1.103e-05   3.022  0.00448 **
## `percent more than 1 unit`     -2.096e-06  2.759e-06  -0.760  0.45215   
## avg_median_age                  5.752e-06  7.895e-06   0.729  0.47069   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001341 on 38 degrees of freedom
## Multiple R-squared:  0.6473, Adjusted R-squared:  0.5823 
## F-statistic: 9.961 on 7 and 38 DF,  p-value: 5.366e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13883 -0.07078 -0.03067  0.06819  0.31000 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -0.06436    0.06730  -0.956   0.3441  
## total_visits_per_capita  0.03954    0.01530   2.584   0.0131 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1051 on 44 degrees of freedom
## Multiple R-squared:  0.1318, Adjusted R-squared:  0.1121 
## F-statistic: 6.679 on 1 and 44 DF,  p-value: 0.01315
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.167072 -0.062398 -0.000402  0.056712  0.184413 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.4499323  0.4622858  -0.973   0.3366  
## total_visits_per_capita         0.0396685  0.0202261   1.961   0.0572 .
## percent_under_125000            0.0015049  0.0016616   0.906   0.3708  
## avg_household_size             -0.0255094  0.0990267  -0.258   0.7981  
## pop_density                    15.1946591  9.5192907   1.596   0.1187  
## `percent more than 1 occupant`  0.0093394  0.0070993   1.316   0.1962  
## `percent more than 1 unit`      0.0003421  0.0017766   0.193   0.8483  
## avg_median_age                  0.0062869  0.0050832   1.237   0.2238  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08635 on 38 degrees of freedom
## Multiple R-squared:  0.4943, Adjusted R-squared:  0.4011 
## F-statistic: 5.305 on 7 and 38 DF,  p-value: 0.0002728
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.418e-04 -1.590e-04 -4.129e-05  8.282e-05  7.354e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -2.993e-04  2.679e-04  -1.117   0.2717  
## total_visits_per_capita  1.053e-04  5.699e-05   1.848   0.0733 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.00021 on 34 degrees of freedom
## Multiple R-squared:  0.09127,    Adjusted R-squared:  0.06454 
## F-statistic: 3.415 on 1 and 34 DF,  p-value: 0.07332
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.501e-04 -8.439e-05 -2.580e-06  8.662e-05  3.528e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -6.985e-05  8.332e-04  -0.084    0.934
## total_visits_per_capita        -1.066e-05  6.308e-05  -0.169    0.867
## percent_under_125000            3.393e-06  2.904e-06   1.168    0.253
## avg_household_size              8.186e-05  1.914e-04   0.428    0.672
## pop_density                     1.659e-02  2.075e-02   0.800    0.431
## `percent more than 1 occupant`  1.598e-05  1.468e-05   1.088    0.286
## `percent more than 1 unit`      3.430e-07  3.385e-06   0.101    0.920
## avg_median_age                 -8.381e-06  1.050e-05  -0.798    0.432
## 
## Residual standard error: 0.0001389 on 28 degrees of freedom
## Multiple R-squared:  0.6726, Adjusted R-squared:  0.5907 
## F-statistic: 8.216 on 7 and 28 DF,  p-value: 1.938e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13520 -0.08548 -0.02324  0.07209  0.29357 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)             0.122556   0.141673   0.865    0.393
## total_visits_per_capita 0.002461   0.030140   0.082    0.935
## 
## Residual standard error: 0.1111 on 34 degrees of freedom
## Multiple R-squared:  0.0001961,  Adjusted R-squared:  -0.02921 
## F-statistic: 0.006668 on 1 and 34 DF,  p-value: 0.9354
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.135913 -0.046925 -0.006487  0.050608  0.154001 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.040993   0.471951  -0.087    0.931  
## total_visits_per_capita        -0.007623   0.035729  -0.213    0.833  
## percent_under_125000            0.001482   0.001645   0.901    0.375  
## avg_household_size              0.104080   0.108400   0.960    0.345  
## pop_density                    22.309896  11.753732   1.898    0.068 .
## `percent more than 1 occupant` -0.003893   0.008316  -0.468    0.643  
## `percent more than 1 unit`      0.001626   0.001917   0.848    0.404  
## avg_median_age                 -0.007051   0.005949  -1.185    0.246  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0787 on 28 degrees of freedom
## Multiple R-squared:  0.5868, Adjusted R-squared:  0.4835 
## F-statistic:  5.68 on 7 and 28 DF,  p-value: 0.000371
## 
## [1] "Cases start date: 2020-05-11"
## [1] "Visits start date: 2020-04-27"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.688e-04 -1.328e-04 -5.446e-05  1.974e-05  9.389e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.543e-04  1.456e-04  -1.060   0.2951  
## total_visits_per_capita  7.770e-05  3.213e-05   2.418   0.0198 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002322 on 44 degrees of freedom
## Multiple R-squared:  0.1173, Adjusted R-squared:  0.09725 
## F-statistic: 5.848 on 1 and 44 DF,  p-value: 0.01981
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.278e-04 -7.492e-05 -2.659e-05  5.980e-05  4.945e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     2.188e-06  9.106e-04   0.002   0.9981  
## total_visits_per_capita        -1.419e-05  4.138e-05  -0.343   0.7336  
## percent_under_125000            7.189e-06  3.346e-06   2.149   0.0381 *
## avg_household_size             -1.296e-04  1.972e-04  -0.657   0.5151  
## pop_density                     8.167e-03  1.824e-02   0.448   0.6568  
## `percent more than 1 occupant`  3.434e-05  1.396e-05   2.459   0.0186 *
## `percent more than 1 unit`     -5.826e-06  3.474e-06  -1.677   0.1018  
## avg_median_age                  3.342e-06  1.002e-05   0.333   0.7407  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001696 on 38 degrees of freedom
## Multiple R-squared:  0.5934, Adjusted R-squared:  0.5185 
## F-statistic: 7.923 on 7 and 38 DF,  p-value: 6.533e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.688e-04 -1.328e-04 -5.446e-05  1.974e-05  9.389e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.543e-04  1.456e-04  -1.060   0.2951  
## total_visits_per_capita  7.770e-05  3.213e-05   2.418   0.0198 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002322 on 44 degrees of freedom
## Multiple R-squared:  0.1173, Adjusted R-squared:  0.09725 
## F-statistic: 5.848 on 1 and 44 DF,  p-value: 0.01981
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.278e-04 -7.492e-05 -2.659e-05  5.980e-05  4.945e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     2.188e-06  9.106e-04   0.002   0.9981  
## total_visits_per_capita        -1.419e-05  4.138e-05  -0.343   0.7336  
## percent_under_125000            7.189e-06  3.346e-06   2.149   0.0381 *
## avg_household_size             -1.296e-04  1.972e-04  -0.657   0.5151  
## pop_density                     8.167e-03  1.824e-02   0.448   0.6568  
## `percent more than 1 occupant`  3.434e-05  1.396e-05   2.459   0.0186 *
## `percent more than 1 unit`     -5.826e-06  3.474e-06  -1.677   0.1018  
## avg_median_age                  3.342e-06  1.002e-05   0.333   0.7407  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001696 on 38 degrees of freedom
## Multiple R-squared:  0.5934, Adjusted R-squared:  0.5185 
## F-statistic: 7.923 on 7 and 38 DF,  p-value: 6.533e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13081 -0.12273 -0.02104  0.03082  0.57290 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)             0.116292   0.090317   1.288    0.205
## total_visits_per_capita 0.002666   0.019936   0.134    0.894
## 
## Residual standard error: 0.144 on 44 degrees of freedom
## Multiple R-squared:  0.0004063,  Adjusted R-squared:  -0.02231 
## F-statistic: 0.01788 on 1 and 44 DF,  p-value: 0.8942
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24390 -0.06740 -0.01165  0.05249  0.38090 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.3698750  0.6500454  -0.569   0.5727  
## total_visits_per_capita        -0.0135994  0.0295407  -0.460   0.6479  
## percent_under_125000            0.0024671  0.0023886   1.033   0.3082  
## avg_household_size              0.1373459  0.1407586   0.976   0.3354  
## pop_density                    26.7210378 13.0195506   2.052   0.0471 *
## `percent more than 1 occupant` -0.0021146  0.0099680  -0.212   0.8331  
## `percent more than 1 unit`     -0.0003188  0.0024804  -0.129   0.8984  
## avg_median_age                 -0.0007490  0.0071560  -0.105   0.9172  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.121 on 38 degrees of freedom
## Multiple R-squared:  0.3903, Adjusted R-squared:  0.278 
## F-statistic: 3.476 on 7 and 38 DF,  p-value: 0.005639
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.839e-04 -1.506e-04 -7.022e-05  1.672e-05  9.208e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -1.101e-04  2.815e-04  -0.391    0.698
## total_visits_per_capita  7.238e-05  5.827e-05   1.242    0.223
## 
## Residual standard error: 0.0002536 on 34 degrees of freedom
## Multiple R-squared:  0.04341,    Adjusted R-squared:  0.01528 
## F-statistic: 1.543 on 1 and 34 DF,  p-value: 0.2227
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.069e-04 -9.285e-05 -2.938e-05  8.150e-05  4.897e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.233e-04  1.089e-03   0.481   0.6346  
## total_visits_per_capita        -1.058e-04  8.391e-05  -1.260   0.2179  
## percent_under_125000            8.811e-06  4.210e-06   2.093   0.0456 *
## avg_household_size             -6.489e-05  2.596e-04  -0.250   0.8045  
## pop_density                     8.777e-04  2.915e-02   0.030   0.9762  
## `percent more than 1 occupant`  2.915e-05  1.959e-05   1.488   0.1480  
## `percent more than 1 unit`     -6.561e-06  4.509e-06  -1.455   0.1568  
## avg_median_age                 -3.766e-06  1.389e-05  -0.271   0.7883  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001848 on 28 degrees of freedom
## Multiple R-squared:  0.5819, Adjusted R-squared:  0.4774 
## F-statistic: 5.567 on 7 and 28 DF,  p-value: 0.0004295
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15228 -0.06388 -0.01961  0.01988  0.36371 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.08758    0.12539   0.698     0.49
## total_visits_per_capita  0.01188    0.02596   0.458     0.65
## 
## Residual standard error: 0.113 on 34 degrees of freedom
## Multiple R-squared:  0.006128,   Adjusted R-squared:  -0.0231 
## F-statistic: 0.2096 on 1 and 34 DF,  p-value: 0.65
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14996 -0.06838 -0.01682  0.05234  0.33198 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.114149   0.629011  -0.181    0.857
## total_visits_per_capita        -0.016038   0.048469  -0.331    0.743
## percent_under_125000            0.003213   0.002432   1.321    0.197
## avg_household_size             -0.024317   0.149972  -0.162    0.872
## pop_density                    13.021820  16.836719   0.773    0.446
## `percent more than 1 occupant`  0.007086   0.011318   0.626    0.536
## `percent more than 1 unit`     -0.002342   0.002604  -0.899    0.376
## avg_median_age                  0.005146   0.008025   0.641    0.527
## 
## Residual standard error: 0.1067 on 28 degrees of freedom
## Multiple R-squared:  0.2696, Adjusted R-squared:  0.08705 
## F-statistic: 1.477 on 7 and 28 DF,  p-value: 0.2159
## 
## [1] "Cases start date: 2020-05-18"
## [1] "Visits start date: 2020-05-04"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.387e-04 -1.948e-04 -9.629e-05  4.708e-05  1.883e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -9.902e-05  2.259e-04  -0.438    0.663
## total_visits_per_capita  7.954e-05  5.241e-05   1.518    0.136
## 
## Residual standard error: 0.0003663 on 44 degrees of freedom
## Multiple R-squared:  0.04975,    Adjusted R-squared:  0.02815 
## F-statistic: 2.304 on 1 and 44 DF,  p-value: 0.1362
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004567 -0.0001295 -0.0000155  0.0000826  0.0011596 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.743e-04  1.462e-03   0.119   0.9057  
## total_visits_per_capita        -3.962e-05  6.583e-05  -0.602   0.5509  
## percent_under_125000            9.186e-06  5.091e-06   1.804   0.0791 .
## avg_household_size             -2.351e-04  3.296e-04  -0.713   0.4801  
## pop_density                     1.456e-02  2.931e-02   0.497   0.6223  
## `percent more than 1 occupant`  5.741e-05  2.280e-05   2.518   0.0161 *
## `percent more than 1 unit`     -8.896e-06  5.634e-06  -1.579   0.1226  
## avg_median_age                  5.708e-06  1.588e-05   0.359   0.7213  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002722 on 38 degrees of freedom
## Multiple R-squared:  0.5467, Adjusted R-squared:  0.4632 
## F-statistic: 6.547 on 7 and 38 DF,  p-value: 4.282e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.387e-04 -1.948e-04 -9.629e-05  4.708e-05  1.883e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -9.902e-05  2.259e-04  -0.438    0.663
## total_visits_per_capita  7.954e-05  5.241e-05   1.518    0.136
## 
## Residual standard error: 0.0003663 on 44 degrees of freedom
## Multiple R-squared:  0.04975,    Adjusted R-squared:  0.02815 
## F-statistic: 2.304 on 1 and 44 DF,  p-value: 0.1362
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004567 -0.0001295 -0.0000155  0.0000826  0.0011596 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.743e-04  1.462e-03   0.119   0.9057  
## total_visits_per_capita        -3.962e-05  6.583e-05  -0.602   0.5509  
## percent_under_125000            9.186e-06  5.091e-06   1.804   0.0791 .
## avg_household_size             -2.351e-04  3.296e-04  -0.713   0.4801  
## pop_density                     1.456e-02  2.931e-02   0.497   0.6223  
## `percent more than 1 occupant`  5.741e-05  2.280e-05   2.518   0.0161 *
## `percent more than 1 unit`     -8.896e-06  5.634e-06  -1.579   0.1226  
## avg_median_age                  5.708e-06  1.588e-05   0.359   0.7213  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002722 on 38 degrees of freedom
## Multiple R-squared:  0.5467, Adjusted R-squared:  0.4632 
## F-statistic: 6.547 on 7 and 38 DF,  p-value: 4.282e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14384 -0.09966 -0.03082  0.03842  0.57849 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.08064    0.08431   0.956    0.344
## total_visits_per_capita  0.01149    0.01956   0.587    0.560
## 
## Residual standard error: 0.1367 on 44 degrees of freedom
## Multiple R-squared:  0.007778,   Adjusted R-squared:  -0.01477 
## F-statistic: 0.3449 on 1 and 44 DF,  p-value: 0.56
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.17289 -0.07204 -0.01630  0.03247  0.56793 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.309696   0.717374   0.432    0.668
## total_visits_per_capita        -0.002467   0.032300  -0.076    0.940
## percent_under_125000            0.002736   0.002498   1.095    0.280
## avg_household_size             -0.036457   0.161745  -0.225    0.823
## pop_density                     5.585354  14.382239   0.388    0.700
## `percent more than 1 occupant`  0.003642   0.011189   0.326    0.747
## `percent more than 1 unit`     -0.002025   0.002764  -0.733    0.468
## avg_median_age                 -0.005183   0.007792  -0.665    0.510
## 
## Residual standard error: 0.1336 on 38 degrees of freedom
## Multiple R-squared:  0.1819, Adjusted R-squared:  0.03121 
## F-statistic: 1.207 on 7 and 38 DF,  p-value: 0.3226
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.269e-04 -2.170e-04 -1.504e-04  5.204e-05  1.856e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             9.045e-05  3.598e-04   0.251    0.803
## total_visits_per_capita 4.297e-05  7.889e-05   0.545    0.589
## 
## Residual standard error: 0.0004012 on 35 degrees of freedom
## Multiple R-squared:  0.008404,   Adjusted R-squared:  -0.01993 
## F-statistic: 0.2966 on 1 and 35 DF,  p-value: 0.5895
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004480 -0.0001725 -0.0000148  0.0001086  0.0011239 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.226e-04  1.758e-03   0.240   0.8117  
## total_visits_per_capita        -9.772e-05  1.165e-04  -0.839   0.4084  
## percent_under_125000            9.417e-06  5.931e-06   1.588   0.1232  
## avg_household_size             -3.074e-04  3.918e-04  -0.785   0.4390  
## pop_density                     1.284e-02  4.225e-02   0.304   0.7634  
## `percent more than 1 occupant`  6.821e-05  2.908e-05   2.345   0.0261 *
## `percent more than 1 unit`     -1.164e-05  7.204e-06  -1.615   0.1171  
## avg_median_age                  1.198e-05  1.901e-05   0.630   0.5335  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002995 on 29 degrees of freedom
## Multiple R-squared:  0.5422, Adjusted R-squared:  0.4318 
## F-statistic: 4.907 on 7 and 29 DF,  p-value: 0.0009525
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15030 -0.06778 -0.02950  0.04255  0.27158 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              0.167101   0.092306   1.810   0.0788 .
## total_visits_per_capita -0.005758   0.020240  -0.284   0.7777  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1029 on 35 degrees of freedom
## Multiple R-squared:  0.002307,   Adjusted R-squared:  -0.0262 
## F-statistic: 0.08092 on 1 and 35 DF,  p-value: 0.7777
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12403 -0.03873 -0.01194  0.02657  0.24558 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.2035237  0.5486371   0.371    0.713
## total_visits_per_capita        -0.0335607  0.0363584  -0.923    0.364
## percent_under_125000            0.0026382  0.0018515   1.425    0.165
## avg_household_size             -0.0132007  0.1223043  -0.108    0.915
## pop_density                     8.9231270 13.1891001   0.677    0.504
## `percent more than 1 occupant`  0.0062058  0.0090780   0.684    0.500
## `percent more than 1 unit`     -0.0028927  0.0022488  -1.286    0.208
## avg_median_age                 -0.0001436  0.0059330  -0.024    0.981
## 
## Residual standard error: 0.09349 on 29 degrees of freedom
## Multiple R-squared:  0.3182, Adjusted R-squared:  0.1536 
## F-statistic: 1.933 on 7 and 29 DF,  p-value: 0.1002
## 
## [1] "Cases start date: 2020-05-25"
## [1] "Visits start date: 2020-05-11"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.842e-04 -2.198e-04 -8.171e-05  6.209e-05  1.628e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.689e-04  2.427e-04  -0.696   0.4900  
## total_visits_per_capita  1.087e-04  5.776e-05   1.882   0.0665 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003898 on 44 degrees of freedom
## Multiple R-squared:  0.07447,    Adjusted R-squared:  0.05344 
## F-statistic:  3.54 on 1 and 44 DF,  p-value: 0.06652
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.023e-04 -1.530e-04 -3.647e-05  1.228e-04  9.083e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -7.602e-05  1.367e-03  -0.056  0.95593   
## total_visits_per_capita        -1.280e-04  6.630e-05  -1.930  0.06106 . 
## percent_under_125000            1.401e-05  4.847e-06   2.890  0.00633 **
## avg_household_size             -5.041e-05  3.079e-04  -0.164  0.87082   
## pop_density                    -3.772e-02  2.760e-02  -1.367  0.17968   
## `percent more than 1 occupant`  5.436e-05  2.144e-05   2.536  0.01546 * 
## `percent more than 1 unit`     -6.586e-06  5.260e-06  -1.252  0.21820   
## avg_median_age                  3.124e-06  1.494e-05   0.209  0.83546   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002558 on 38 degrees of freedom
## Multiple R-squared:  0.6556, Adjusted R-squared:  0.5922 
## F-statistic: 10.34 on 7 and 38 DF,  p-value: 3.501e-07
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.842e-04 -2.198e-04 -8.171e-05  6.209e-05  1.628e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.689e-04  2.427e-04  -0.696   0.4900  
## total_visits_per_capita  1.087e-04  5.776e-05   1.882   0.0665 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003898 on 44 degrees of freedom
## Multiple R-squared:  0.07447,    Adjusted R-squared:  0.05344 
## F-statistic:  3.54 on 1 and 44 DF,  p-value: 0.06652
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.023e-04 -1.530e-04 -3.647e-05  1.228e-04  9.083e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -7.602e-05  1.367e-03  -0.056  0.95593   
## total_visits_per_capita        -1.280e-04  6.630e-05  -1.930  0.06106 . 
## percent_under_125000            1.401e-05  4.847e-06   2.890  0.00633 **
## avg_household_size             -5.041e-05  3.079e-04  -0.164  0.87082   
## pop_density                    -3.772e-02  2.760e-02  -1.367  0.17968   
## `percent more than 1 occupant`  5.436e-05  2.144e-05   2.536  0.01546 * 
## `percent more than 1 unit`     -6.586e-06  5.260e-06  -1.252  0.21820   
## avg_median_age                  3.124e-06  1.494e-05   0.209  0.83546   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002558 on 38 degrees of freedom
## Multiple R-squared:  0.6556, Adjusted R-squared:  0.5922 
## F-statistic: 10.34 on 7 and 38 DF,  p-value: 3.501e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14637 -0.10678 -0.02208  0.02997  0.56720 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.07873    0.09086   0.866    0.391
## total_visits_per_capita  0.01483    0.02163   0.686    0.497
## 
## Residual standard error: 0.1459 on 44 degrees of freedom
## Multiple R-squared:  0.01057,    Adjusted R-squared:  -0.01192 
## F-statistic:  0.47 on 1 and 44 DF,  p-value: 0.4966
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18077 -0.07967 -0.02415  0.02236  0.60598 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     -0.495632   0.772347  -0.642   0.5249  
## total_visits_per_capita         -0.040876   0.037470  -1.091   0.2822  
## percent_under_125000             0.004852   0.002739   1.771   0.0845 .
## avg_household_size               0.155609   0.173999   0.894   0.3768  
## pop_density                    -27.003534  15.596071  -1.731   0.0915 .
## `percent more than 1 occupant`  -0.007414   0.012116  -0.612   0.5442  
## `percent more than 1 unit`       0.002029   0.002973   0.683   0.4990  
## avg_median_age                   0.002724   0.008443   0.323   0.7487  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1446 on 38 degrees of freedom
## Multiple R-squared:  0.1613, Adjusted R-squared:  0.006842 
## F-statistic: 1.044 on 7 and 38 DF,  p-value: 0.4174
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.753e-04 -2.489e-04 -9.652e-05  6.223e-05  1.624e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -1.029e-04  3.586e-04  -0.287    0.776
## total_visits_per_capita  9.482e-05  8.128e-05   1.167    0.251
## 
## Residual standard error: 0.0004201 on 36 degrees of freedom
## Multiple R-squared:  0.03643,    Adjusted R-squared:  0.009662 
## F-statistic: 1.361 on 1 and 36 DF,  p-value: 0.251
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.178e-04 -1.937e-04  4.560e-06  1.082e-04  8.392e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     5.336e-04  1.570e-03   0.340  0.73627   
## total_visits_per_capita        -1.400e-04  1.043e-04  -1.342  0.18980   
## percent_under_125000            1.203e-05  5.460e-06   2.204  0.03533 * 
## avg_household_size             -2.643e-04  3.556e-04  -0.743  0.46319   
## pop_density                    -2.290e-02  3.822e-02  -0.599  0.55362   
## `percent more than 1 occupant`  7.478e-05  2.628e-05   2.846  0.00791 **
## `percent more than 1 unit`     -1.084e-05  6.508e-06  -1.666  0.10607   
## avg_median_age                  7.068e-06  1.684e-05   0.420  0.67771   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002711 on 30 degrees of freedom
## Multiple R-squared:  0.6657, Adjusted R-squared:  0.5876 
## F-statistic: 8.533 on 7 and 30 DF,  p-value: 9.836e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.140138 -0.047073 -0.003853  0.043397  0.176657 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              0.149341   0.065954   2.264   0.0297 *
## total_visits_per_capita -0.003983   0.014949  -0.266   0.7914  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07727 on 36 degrees of freedom
## Multiple R-squared:  0.001968,   Adjusted R-squared:  -0.02575 
## F-statistic: 0.071 on 1 and 36 DF,  p-value: 0.7914
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11628 -0.03731  0.01539  0.03771  0.09593 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.229513   0.374654   0.613   0.5448  
## total_visits_per_capita        -0.051472   0.024902  -2.067   0.0475 *
## percent_under_125000            0.002008   0.001303   1.541   0.1338  
## avg_household_size             -0.063137   0.084876  -0.744   0.4627  
## pop_density                    -7.492683   9.122445  -0.821   0.4179  
## `percent more than 1 occupant`  0.013789   0.006271   2.199   0.0357 *
## `percent more than 1 unit`     -0.002088   0.001553  -1.344   0.1889  
## avg_median_age                  0.004523   0.004019   1.125   0.2694  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0647 on 30 degrees of freedom
## Multiple R-squared:  0.4168, Adjusted R-squared:  0.2808 
## F-statistic: 3.063 on 7 and 30 DF,  p-value: 0.01479
## 
## [1] "Cases start date: 2020-06-01"
## [1] "Visits start date: 2020-05-18"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.485e-04 -1.776e-04 -6.440e-05  5.401e-05  1.103e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -9.663e-05  2.005e-04  -0.482   0.6322  
## total_visits_per_capita  7.350e-05  4.352e-05   1.689   0.0983 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003045 on 44 degrees of freedom
## Multiple R-squared:  0.06088,    Adjusted R-squared:  0.03953 
## F-statistic: 2.852 on 1 and 44 DF,  p-value: 0.09833
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.333e-04 -1.001e-04 -1.260e-06  8.495e-05  4.059e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    -1.013e-04  8.519e-04  -0.119 0.905935    
## total_visits_per_capita        -4.628e-05  3.853e-05  -1.201 0.237170    
## percent_under_125000            9.731e-06  2.945e-06   3.305 0.002081 ** 
## avg_household_size             -1.610e-04  1.873e-04  -0.860 0.395270    
## pop_density                     5.907e-04  1.735e-02   0.034 0.973016    
## `percent more than 1 occupant`  5.312e-05  1.336e-05   3.975 0.000304 ***
## `percent more than 1 unit`     -6.947e-06  3.266e-06  -2.127 0.039991 *  
## avg_median_age                  7.425e-06  9.490e-06   0.782 0.438856    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001594 on 38 degrees of freedom
## Multiple R-squared:  0.7777, Adjusted R-squared:  0.7368 
## F-statistic:    19 on 7 and 38 DF,  p-value: 1.27e-10
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.485e-04 -1.776e-04 -6.440e-05  5.401e-05  1.103e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -9.663e-05  2.005e-04  -0.482   0.6322  
## total_visits_per_capita  7.350e-05  4.352e-05   1.689   0.0983 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003045 on 44 degrees of freedom
## Multiple R-squared:  0.06088,    Adjusted R-squared:  0.03953 
## F-statistic: 2.852 on 1 and 44 DF,  p-value: 0.09833
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.333e-04 -1.001e-04 -1.260e-06  8.495e-05  4.059e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    -1.013e-04  8.519e-04  -0.119 0.905935    
## total_visits_per_capita        -4.628e-05  3.853e-05  -1.201 0.237170    
## percent_under_125000            9.731e-06  2.945e-06   3.305 0.002081 ** 
## avg_household_size             -1.610e-04  1.873e-04  -0.860 0.395270    
## pop_density                     5.907e-04  1.735e-02   0.034 0.973016    
## `percent more than 1 occupant`  5.312e-05  1.336e-05   3.975 0.000304 ***
## `percent more than 1 unit`     -6.947e-06  3.266e-06  -2.127 0.039991 *  
## avg_median_age                  7.425e-06  9.490e-06   0.782 0.438856    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001594 on 38 degrees of freedom
## Multiple R-squared:  0.7777, Adjusted R-squared:  0.7368 
## F-statistic:    19 on 7 and 38 DF,  p-value: 1.27e-10
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10546 -0.07348  0.00000  0.03177  0.68360 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             0.1037416  0.0807421   1.285    0.206
## total_visits_per_capita 0.0002841  0.0175280   0.016    0.987
## 
## Residual standard error: 0.1226 on 44 degrees of freedom
## Multiple R-squared:  5.971e-06,  Adjusted R-squared:  -0.02272 
## F-statistic: 0.0002627 on 1 and 44 DF,  p-value: 0.9871
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10745 -0.05770 -0.01223  0.01912  0.65849 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.2119928  0.6521462  -0.325    0.747
## total_visits_per_capita         0.0010799  0.0295000   0.037    0.971
## percent_under_125000            0.0006384  0.0022544   0.283    0.779
## avg_household_size             -0.0083471  0.1433594  -0.058    0.954
## pop_density                    15.6779499 13.2812241   1.180    0.245
## `percent more than 1 occupant`  0.0085453  0.0102289   0.835    0.409
## `percent more than 1 unit`     -0.0005581  0.0025007  -0.223    0.825
## avg_median_age                  0.0055612  0.0072655   0.765    0.449
## 
## Residual standard error: 0.122 on 38 degrees of freedom
## Multiple R-squared:  0.1448, Adjusted R-squared:  -0.01279 
## F-statistic: 0.9188 on 7 and 38 DF,  p-value: 0.5029
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.266e-04 -2.038e-04 -6.714e-05  5.240e-05  1.093e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             2.705e-05  2.676e-04   0.101    0.920
## total_visits_per_capita 4.945e-05  5.592e-05   0.884    0.382
## 
## Residual standard error: 0.0003223 on 38 degrees of freedom
## Multiple R-squared:  0.02016,    Adjusted R-squared:  -0.005621 
## F-statistic: 0.782 on 1 and 38 DF,  p-value: 0.3821
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.358e-04 -1.219e-04 -1.429e-05  9.381e-05  4.079e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -1.794e-05  1.011e-03  -0.018  0.98596   
## total_visits_per_capita        -5.975e-05  5.246e-05  -1.139  0.26314   
## percent_under_125000            1.018e-05  3.175e-06   3.208  0.00303 **
## avg_household_size             -1.898e-04  2.136e-04  -0.889  0.38083   
## pop_density                    -2.693e-03  1.970e-02  -0.137  0.89212   
## `percent more than 1 occupant`  5.610e-05  1.589e-05   3.530  0.00128 **
## `percent more than 1 unit`     -7.879e-06  3.995e-06  -1.972  0.05730 . 
## avg_median_age                  8.809e-06  1.061e-05   0.830  0.41266   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001688 on 32 degrees of freedom
## Multiple R-squared:  0.7735, Adjusted R-squared:  0.724 
## F-statistic: 15.62 on 7 and 32 DF,  p-value: 1.048e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11227 -0.04102  0.01129  0.03925  0.11974 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)              0.15483    0.04937   3.136   0.0033 **
## total_visits_per_capita -0.01145    0.01032  -1.109   0.2742   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05946 on 38 degrees of freedom
## Multiple R-squared:  0.03137,    Adjusted R-squared:  0.005884 
## F-statistic: 1.231 on 1 and 38 DF,  p-value: 0.2742
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.084271 -0.033634  0.002591  0.028847  0.127502 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.1362965  0.2955221  -0.461   0.6478  
## total_visits_per_capita        -0.0260828  0.0153286  -1.702   0.0985 .
## percent_under_125000            0.0015969  0.0009277   1.721   0.0948 .
## avg_household_size              0.0365376  0.0624139   0.585   0.5624  
## pop_density                     2.0037841  5.7560694   0.348   0.7300  
## `percent more than 1 occupant`  0.0038901  0.0046437   0.838   0.4084  
## `percent more than 1 unit`     -0.0002174  0.0011674  -0.186   0.8534  
## avg_median_age                  0.0032738  0.0031010   1.056   0.2990  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.04933 on 32 degrees of freedom
## Multiple R-squared:  0.4385, Adjusted R-squared:  0.3157 
## F-statistic:  3.57 on 7 and 32 DF,  p-value: 0.005989
## 
## [1] "Cases start date: 2020-06-08"
## [1] "Visits start date: 2020-05-25"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.899e-04 -1.941e-04 -1.542e-04  5.448e-05  1.283e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             7.616e-05  2.244e-04   0.339    0.736
## total_visits_per_capita 4.664e-05  5.776e-05   0.807    0.424
## 
## Residual standard error: 0.0003605 on 44 degrees of freedom
## Multiple R-squared:  0.0146, Adjusted R-squared:  -0.007794 
## F-statistic: 0.652 on 1 and 44 DF,  p-value: 0.4238
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.594e-04 -1.069e-04  7.020e-06  1.066e-04  5.055e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     6.656e-04  1.006e-03   0.661  0.51232    
## total_visits_per_capita        -7.042e-05  4.920e-05  -1.431  0.16052    
## percent_under_125000            1.184e-05  3.357e-06   3.528  0.00111 ** 
## avg_household_size             -3.048e-04  2.223e-04  -1.371  0.17843    
## pop_density                    -1.756e-02  1.898e-02  -0.925  0.36067    
## `percent more than 1 occupant`  6.281e-05  1.569e-05   4.003  0.00028 ***
## `percent more than 1 unit`     -1.038e-05  3.864e-06  -2.686  0.01067 *  
## avg_median_age                 -3.631e-07  1.106e-05  -0.033  0.97399    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001886 on 38 degrees of freedom
## Multiple R-squared:  0.7672, Adjusted R-squared:  0.7243 
## F-statistic: 17.89 on 7 and 38 DF,  p-value: 2.971e-10
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.899e-04 -1.941e-04 -1.542e-04  5.448e-05  1.283e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             7.616e-05  2.244e-04   0.339    0.736
## total_visits_per_capita 4.664e-05  5.776e-05   0.807    0.424
## 
## Residual standard error: 0.0003605 on 44 degrees of freedom
## Multiple R-squared:  0.0146, Adjusted R-squared:  -0.007794 
## F-statistic: 0.652 on 1 and 44 DF,  p-value: 0.4238
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.594e-04 -1.069e-04  7.020e-06  1.066e-04  5.055e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     6.656e-04  1.006e-03   0.661  0.51232    
## total_visits_per_capita        -7.042e-05  4.920e-05  -1.431  0.16052    
## percent_under_125000            1.184e-05  3.357e-06   3.528  0.00111 ** 
## avg_household_size             -3.048e-04  2.223e-04  -1.371  0.17843    
## pop_density                    -1.756e-02  1.898e-02  -0.925  0.36067    
## `percent more than 1 occupant`  6.281e-05  1.569e-05   4.003  0.00028 ***
## `percent more than 1 unit`     -1.038e-05  3.864e-06  -2.686  0.01067 *  
## avg_median_age                 -3.631e-07  1.106e-05  -0.033  0.97399    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001886 on 38 degrees of freedom
## Multiple R-squared:  0.7672, Adjusted R-squared:  0.7243 
## F-statistic: 17.89 on 7 and 38 DF,  p-value: 2.971e-10
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10686 -0.06513 -0.02521  0.05747  0.14418 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.02807    0.04401   0.638    0.527
## total_visits_per_capita  0.01720    0.01133   1.518    0.136
## 
## Residual standard error: 0.07071 on 44 degrees of freedom
## Multiple R-squared:  0.04975,    Adjusted R-squared:  0.02816 
## F-statistic: 2.304 on 1 and 44 DF,  p-value: 0.1362
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09124 -0.03956 -0.01361  0.03931  0.14178 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -3.969e-02  3.373e-01  -0.118   0.9070  
## total_visits_per_capita         1.680e-02  1.649e-02   1.018   0.3149  
## percent_under_125000            2.615e-03  1.125e-03   2.324   0.0256 *
## avg_household_size             -3.801e-02  7.452e-02  -0.510   0.6130  
## pop_density                    -1.155e+01  6.363e+00  -1.816   0.0773 .
## `percent more than 1 occupant`  3.006e-03  5.260e-03   0.571   0.5710  
## `percent more than 1 unit`     -5.543e-05  1.295e-03  -0.043   0.9661  
## avg_median_age                  6.569e-04  3.708e-03   0.177   0.8603  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06321 on 38 degrees of freedom
## Multiple R-squared:  0.3441, Adjusted R-squared:  0.2233 
## F-statistic: 2.848 on 7 and 38 DF,  p-value: 0.01724
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0002905 -0.0002230 -0.0001386  0.0000362  0.0012420 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)              3.057e-04  2.861e-04   1.069    0.292
## total_visits_per_capita -5.768e-06  7.101e-05  -0.081    0.936
## 
## Residual standard error: 0.0003737 on 39 degrees of freedom
## Multiple R-squared:  0.0001692,  Adjusted R-squared:  -0.02547 
## F-statistic: 0.006598 on 1 and 39 DF,  p-value: 0.9357
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.577e-04 -1.183e-04  4.530e-06  1.113e-04  4.894e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     9.589e-04  1.190e-03   0.806 0.426202    
## total_visits_per_capita        -9.830e-05  7.232e-05  -1.359 0.183278    
## percent_under_125000            1.153e-05  3.739e-06   3.084 0.004113 ** 
## avg_household_size             -3.733e-04  2.479e-04  -1.506 0.141594    
## pop_density                    -1.716e-02  2.055e-02  -0.835 0.409829    
## `percent more than 1 occupant`  6.938e-05  1.851e-05   3.749 0.000682 ***
## `percent more than 1 unit`     -1.239e-05  4.734e-06  -2.618 0.013262 *  
## avg_median_age                  1.293e-06  1.232e-05   0.105 0.917070    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001989 on 33 degrees of freedom
## Multiple R-squared:  0.7602, Adjusted R-squared:  0.7094 
## F-statistic: 14.95 on 7 and 33 DF,  p-value: 1.315e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.107074 -0.059350 -0.009411  0.059209  0.116758 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              0.112670   0.052425   2.149   0.0379 *
## total_visits_per_capita -0.002123   0.013013  -0.163   0.8712  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06848 on 39 degrees of freedom
## Multiple R-squared:  0.0006822,  Adjusted R-squared:  -0.02494 
## F-statistic: 0.02662 on 1 and 39 DF,  p-value: 0.8712
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.096903 -0.050625 -0.001332  0.041899  0.126613 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     2.345e-01  3.883e-01   0.604   0.5499  
## total_visits_per_capita        -7.174e-03  2.359e-02  -0.304   0.7630  
## percent_under_125000            2.070e-03  1.220e-03   1.697   0.0991 .
## avg_household_size             -6.724e-02  8.087e-02  -0.831   0.4117  
## pop_density                    -1.220e+01  6.704e+00  -1.820   0.0779 .
## `percent more than 1 occupant`  5.417e-03  6.038e-03   0.897   0.3761  
## `percent more than 1 unit`     -1.071e-03  1.545e-03  -0.694   0.4928  
## avg_median_age                 -2.172e-04  4.020e-03  -0.054   0.9572  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0649 on 33 degrees of freedom
## Multiple R-squared:  0.2407, Adjusted R-squared:  0.07961 
## F-statistic: 1.494 on 7 and 33 DF,  p-value: 0.2036
## 
## [1] "Cases start date: 2020-06-15"
## [1] "Visits start date: 2020-06-01"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004507 -0.0002731 -0.0001568  0.0001114  0.0017393 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             1.680e-04  2.900e-04   0.579    0.565
## total_visits_per_capita 5.843e-05  7.504e-05   0.779    0.440
## 
## Residual standard error: 0.0004677 on 44 degrees of freedom
## Multiple R-squared:  0.01359,    Adjusted R-squared:  -0.008825 
## F-statistic: 0.6063 on 1 and 44 DF,  p-value: 0.4403
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.696e-04 -1.408e-04 -5.819e-05  1.449e-04  8.167e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     1.478e-03  1.504e-03   0.983 0.331922    
## total_visits_per_capita        -1.038e-05  7.540e-05  -0.138 0.891273    
## percent_under_125000            1.348e-05  5.023e-06   2.684 0.010719 *  
## avg_household_size             -5.668e-04  3.266e-04  -1.735 0.090758 .  
## pop_density                    -2.257e-02  2.837e-02  -0.796 0.431159    
## `percent more than 1 occupant`  8.517e-05  2.321e-05   3.669 0.000744 ***
## `percent more than 1 unit`     -1.426e-05  5.758e-06  -2.477 0.017795 *  
## avg_median_age                 -7.036e-06  1.646e-05  -0.427 0.671440    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002808 on 38 degrees of freedom
## Multiple R-squared:  0.6929, Adjusted R-squared:  0.6364 
## F-statistic: 12.25 on 7 and 38 DF,  p-value: 4.509e-08
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004507 -0.0002731 -0.0001568  0.0001114  0.0017393 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             1.680e-04  2.900e-04   0.579    0.565
## total_visits_per_capita 5.843e-05  7.504e-05   0.779    0.440
## 
## Residual standard error: 0.0004677 on 44 degrees of freedom
## Multiple R-squared:  0.01359,    Adjusted R-squared:  -0.008825 
## F-statistic: 0.6063 on 1 and 44 DF,  p-value: 0.4403
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.696e-04 -1.408e-04 -5.819e-05  1.449e-04  8.167e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     1.478e-03  1.504e-03   0.983 0.331922    
## total_visits_per_capita        -1.038e-05  7.540e-05  -0.138 0.891273    
## percent_under_125000            1.348e-05  5.023e-06   2.684 0.010719 *  
## avg_household_size             -5.668e-04  3.266e-04  -1.735 0.090758 .  
## pop_density                    -2.257e-02  2.837e-02  -0.796 0.431159    
## `percent more than 1 occupant`  8.517e-05  2.321e-05   3.669 0.000744 ***
## `percent more than 1 unit`     -1.426e-05  5.758e-06  -2.477 0.017795 *  
## avg_median_age                 -7.036e-06  1.646e-05  -0.427 0.671440    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002808 on 38 degrees of freedom
## Multiple R-squared:  0.6929, Adjusted R-squared:  0.6364 
## F-statistic: 12.25 on 7 and 38 DF,  p-value: 4.509e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18193 -0.07352 -0.03270  0.01561  0.56642 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.06561    0.09356   0.701    0.487
## total_visits_per_capita  0.02404    0.02421   0.993    0.326
## 
## Residual standard error: 0.1509 on 44 degrees of freedom
## Multiple R-squared:  0.02192,    Adjusted R-squared:  -0.0003116 
## F-statistic: 0.986 on 1 and 44 DF,  p-value: 0.3262
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.20883 -0.06170 -0.02780  0.01076  0.56778 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     7.047e-01  8.447e-01   0.834    0.409
## total_visits_per_capita         3.984e-02  4.234e-02   0.941    0.353
## percent_under_125000            1.928e-04  2.820e-03   0.068    0.946
## avg_household_size             -1.166e-01  1.834e-01  -0.636    0.529
## pop_density                    -1.493e+01  1.593e+01  -0.937    0.355
## `percent more than 1 occupant`  2.522e-03  1.303e-02   0.193    0.848
## `percent more than 1 unit`     -4.401e-04  3.233e-03  -0.136    0.892
## avg_median_age                 -8.801e-03  9.242e-03  -0.952    0.347
## 
## Residual standard error: 0.1577 on 38 degrees of freedom
## Multiple R-squared:  0.07783,    Adjusted R-squared:  -0.09204 
## F-statistic: 0.4582 on 7 and 38 DF,  p-value: 0.8583
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.356e-04 -2.910e-04 -1.863e-04  9.267e-05  1.697e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             3.804e-04  3.432e-04   1.108    0.274
## total_visits_per_capita 1.141e-05  8.604e-05   0.133    0.895
## 
## Residual standard error: 0.0004829 on 39 degrees of freedom
## Multiple R-squared:  0.0004506,  Adjusted R-squared:  -0.02518 
## F-statistic: 0.01758 on 1 and 39 DF,  p-value: 0.8952
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.588e-04 -1.607e-04 -5.454e-05  1.857e-04  8.017e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     9.836e-04  1.752e-03   0.562  0.57825   
## total_visits_per_capita         3.913e-05  1.056e-04   0.370  0.71341   
## percent_under_125000            1.533e-05  5.682e-06   2.697  0.01092 * 
## avg_household_size             -5.367e-04  3.620e-04  -1.483  0.14768   
## pop_density                    -1.417e-02  3.039e-02  -0.466  0.64403   
## `percent more than 1 occupant`  8.115e-05  2.740e-05   2.961  0.00564 **
## `percent more than 1 unit`     -1.344e-05  6.934e-06  -1.938  0.06117 . 
## avg_median_age                 -5.337e-06  1.793e-05  -0.298  0.76779   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000291 on 33 degrees of freedom
## Multiple R-squared:  0.693,  Adjusted R-squared:  0.6279 
## F-statistic: 10.64 on 7 and 33 DF,  p-value: 6.287e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18448 -0.06290 -0.02341  0.02239  0.45285 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.04896    0.08913   0.549    0.586
## total_visits_per_capita  0.02801    0.02235   1.253    0.218
## 
## Residual standard error: 0.1254 on 39 degrees of freedom
## Multiple R-squared:  0.03872,    Adjusted R-squared:  0.01407 
## F-statistic: 1.571 on 1 and 39 DF,  p-value: 0.2175
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24163 -0.04288 -0.00442  0.02011  0.40128 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.220138   0.758224   0.290   0.7734  
## total_visits_per_capita         0.095699   0.045720   2.093   0.0441 *
## percent_under_125000            0.001750   0.002460   0.711   0.4818  
## avg_household_size             -0.032434   0.156684  -0.207   0.8373  
## pop_density                    -2.575258  13.153735  -0.196   0.8460  
## `percent more than 1 occupant` -0.007924   0.011861  -0.668   0.5087  
## `percent more than 1 unit`      0.001255   0.003001   0.418   0.6786  
## avg_median_age                 -0.011391   0.007760  -1.468   0.1516  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1259 on 33 degrees of freedom
## Multiple R-squared:   0.18,  Adjusted R-squared:  0.006103 
## F-statistic: 1.035 on 7 and 33 DF,  p-value: 0.426
## 
## [1] "Cases start date: 2020-06-22"
## [1] "Visits start date: 2020-06-08"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.897e-04 -2.508e-04 -1.030e-04  8.752e-05  1.308e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             2.432e-04  2.276e-04   1.069    0.291
## total_visits_per_capita 4.214e-05  5.341e-05   0.789    0.434
## 
## Residual standard error: 0.0003956 on 44 degrees of freedom
## Multiple R-squared:  0.01395,    Adjusted R-squared:  -0.008457 
## F-statistic: 0.6226 on 1 and 44 DF,  p-value: 0.4343
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.145e-04 -1.382e-04 -2.016e-05  1.008e-04  6.739e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     2.489e-03  1.456e-03   1.710  0.09547 . 
## total_visits_per_capita        -4.499e-05  6.071e-05  -0.741  0.46313   
## percent_under_125000            6.743e-06  4.865e-06   1.386  0.17376   
## avg_household_size             -4.056e-04  3.140e-04  -1.292  0.20420   
## pop_density                    -8.260e-02  2.730e-02  -3.026  0.00443 **
## `percent more than 1 occupant`  6.026e-05  2.245e-05   2.685  0.01070 * 
## `percent more than 1 unit`     -6.904e-06  5.601e-06  -1.233  0.22532   
## avg_median_age                 -2.806e-05  1.597e-05  -1.757  0.08701 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002731 on 38 degrees of freedom
## Multiple R-squared:  0.5942, Adjusted R-squared:  0.5194 
## F-statistic: 7.948 on 7 and 38 DF,  p-value: 6.324e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.897e-04 -2.508e-04 -1.030e-04  8.752e-05  1.308e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             2.432e-04  2.276e-04   1.069    0.291
## total_visits_per_capita 4.214e-05  5.341e-05   0.789    0.434
## 
## Residual standard error: 0.0003956 on 44 degrees of freedom
## Multiple R-squared:  0.01395,    Adjusted R-squared:  -0.008457 
## F-statistic: 0.6226 on 1 and 44 DF,  p-value: 0.4343
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.145e-04 -1.382e-04 -2.016e-05  1.008e-04  6.739e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     2.489e-03  1.456e-03   1.710  0.09547 . 
## total_visits_per_capita        -4.499e-05  6.071e-05  -0.741  0.46313   
## percent_under_125000            6.743e-06  4.865e-06   1.386  0.17376   
## avg_household_size             -4.056e-04  3.140e-04  -1.292  0.20420   
## pop_density                    -8.260e-02  2.730e-02  -3.026  0.00443 **
## `percent more than 1 occupant`  6.026e-05  2.245e-05   2.685  0.01070 * 
## `percent more than 1 unit`     -6.904e-06  5.601e-06  -1.233  0.22532   
## avg_median_age                 -2.806e-05  1.597e-05  -1.757  0.08701 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002731 on 38 degrees of freedom
## Multiple R-squared:  0.5942, Adjusted R-squared:  0.5194 
## F-statistic: 7.948 on 7 and 38 DF,  p-value: 6.324e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18999 -0.07524 -0.03950  0.03078  0.60278 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              0.203839   0.086470   2.357   0.0229 *
## total_visits_per_capita -0.007595   0.020295  -0.374   0.7100  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1503 on 44 degrees of freedom
## Multiple R-squared:  0.003173,   Adjusted R-squared:  -0.01948 
## F-statistic:  0.14 on 1 and 44 DF,  p-value: 0.71
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24228 -0.07887 -0.00551  0.04627  0.52946 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.161e+00  7.641e-01   1.520   0.1368  
## total_visits_per_capita        -2.220e-03  3.187e-02  -0.070   0.9448  
## percent_under_125000           -5.095e-03  2.554e-03  -1.995   0.0532 .
## avg_household_size             -4.115e-02  1.648e-01  -0.250   0.8042  
## pop_density                    -2.148e+01  1.433e+01  -1.499   0.1421  
## `percent more than 1 occupant`  5.103e-04  1.178e-02   0.043   0.9657  
## `percent more than 1 unit`      1.904e-03  2.940e-03   0.647   0.5213  
## avg_median_age                 -1.450e-02  8.383e-03  -1.730   0.0918 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1434 on 38 degrees of freedom
## Multiple R-squared:  0.217,  Adjusted R-squared:  0.07274 
## F-statistic: 1.504 on 7 and 38 DF,  p-value: 0.1953
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.073e-04 -2.377e-04 -1.138e-04  5.797e-05  1.277e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             3.974e-04  2.639e-04   1.506    0.140
## total_visits_per_capita 1.140e-05  6.028e-05   0.189    0.851
## 
## Residual standard error: 0.0004006 on 40 degrees of freedom
## Multiple R-squared:  0.0008928,  Adjusted R-squared:  -0.02408 
## F-statistic: 0.03574 on 1 and 40 DF,  p-value: 0.851
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.019e-04 -1.412e-04 -2.139e-05  1.041e-04  6.872e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     2.390e-03  1.579e-03   1.514  0.13929   
## total_visits_per_capita        -2.271e-05  7.422e-05  -0.306  0.76145   
## percent_under_125000            8.070e-06  5.197e-06   1.553  0.12968   
## avg_household_size             -3.838e-04  3.399e-04  -1.129  0.26666   
## pop_density                    -7.887e-02  2.853e-02  -2.765  0.00914 **
## `percent more than 1 occupant`  5.389e-05  2.575e-05   2.093  0.04392 * 
## `percent more than 1 unit`     -6.294e-06  6.401e-06  -0.983  0.33243   
## avg_median_age                 -3.143e-05  1.724e-05  -1.823  0.07711 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002789 on 34 degrees of freedom
## Multiple R-squared:  0.5884, Adjusted R-squared:  0.5037 
## F-statistic: 6.944 on 7 and 34 DF,  p-value: 3.736e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13992 -0.07295 -0.03706  0.03991  0.43097 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              0.1738418  0.0757018   2.296    0.027 *
## total_visits_per_capita -0.0008505  0.0172928  -0.049    0.961  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1149 on 40 degrees of freedom
## Multiple R-squared:  6.047e-05,  Adjusted R-squared:  -0.02494 
## F-statistic: 0.002419 on 1 and 40 DF,  p-value: 0.961
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18231 -0.05096 -0.00839  0.04167  0.38607 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      0.929431   0.598423   1.553   0.1297  
## total_visits_per_capita          0.030647   0.028138   1.089   0.2837  
## percent_under_125000            -0.003041   0.001970  -1.544   0.1319  
## avg_household_size              -0.040243   0.128848  -0.312   0.7567  
## pop_density                    -13.237139  10.815596  -1.224   0.2294  
## `percent more than 1 occupant`  -0.004925   0.009762  -0.505   0.6171  
## `percent more than 1 unit`       0.002089   0.002427   0.861   0.3953  
## avg_median_age                  -0.015340   0.006537  -2.347   0.0249 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1057 on 34 degrees of freedom
## Multiple R-squared:  0.2807, Adjusted R-squared:  0.1326 
## F-statistic: 1.896 on 7 and 34 DF,  p-value: 0.101
## 
## [1] "Cases start date: 2020-06-29"
## [1] "Visits start date: 2020-06-15"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006019 -0.0003266 -0.0001136  0.0002023  0.0014361 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             5.918e-04  2.962e-04   1.998   0.0519 .
## total_visits_per_capita 3.298e-06  6.821e-05   0.048   0.9617  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005006 on 44 degrees of freedom
## Multiple R-squared:  5.313e-05,  Adjusted R-squared:  -0.02267 
## F-statistic: 0.002338 on 1 and 44 DF,  p-value: 0.9617
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.735e-04 -2.153e-04 -4.087e-05  1.789e-04  9.843e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     3.048e-03  1.892e-03   1.611   0.1155  
## total_visits_per_capita        -6.497e-05  7.959e-05  -0.816   0.4194  
## percent_under_125000            1.235e-05  6.329e-06   1.951   0.0585 .
## avg_household_size             -4.762e-04  4.179e-04  -1.139   0.2617  
## pop_density                    -3.818e-02  3.537e-02  -1.079   0.2872  
## `percent more than 1 occupant`  6.216e-05  2.933e-05   2.119   0.0407 *
## `percent more than 1 unit`     -1.290e-05  7.273e-06  -1.774   0.0840 .
## avg_median_age                 -3.671e-05  2.070e-05  -1.774   0.0841 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003549 on 38 degrees of freedom
## Multiple R-squared:  0.5659, Adjusted R-squared:  0.4859 
## F-statistic: 7.077 on 7 and 38 DF,  p-value: 2.034e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006019 -0.0003266 -0.0001136  0.0002023  0.0014361 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             5.918e-04  2.962e-04   1.998   0.0519 .
## total_visits_per_capita 3.298e-06  6.821e-05   0.048   0.9617  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005006 on 44 degrees of freedom
## Multiple R-squared:  5.313e-05,  Adjusted R-squared:  -0.02267 
## F-statistic: 0.002338 on 1 and 44 DF,  p-value: 0.9617
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.735e-04 -2.153e-04 -4.087e-05  1.789e-04  9.843e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     3.048e-03  1.892e-03   1.611   0.1155  
## total_visits_per_capita        -6.497e-05  7.959e-05  -0.816   0.4194  
## percent_under_125000            1.235e-05  6.329e-06   1.951   0.0585 .
## avg_household_size             -4.762e-04  4.179e-04  -1.139   0.2617  
## pop_density                    -3.818e-02  3.537e-02  -1.079   0.2872  
## `percent more than 1 occupant`  6.216e-05  2.933e-05   2.119   0.0407 *
## `percent more than 1 unit`     -1.290e-05  7.273e-06  -1.774   0.0840 .
## avg_median_age                 -3.671e-05  2.070e-05  -1.774   0.0841 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003549 on 38 degrees of freedom
## Multiple R-squared:  0.5659, Adjusted R-squared:  0.4859 
## F-statistic: 7.077 on 7 and 38 DF,  p-value: 2.034e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.25597 -0.08515 -0.03901  0.03195  0.59737 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)              0.33495    0.10699   3.131  0.00309 **
## total_visits_per_capita -0.02962    0.02464  -1.202  0.23578   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1808 on 44 degrees of freedom
## Multiple R-squared:  0.03179,    Adjusted R-squared:  0.00979 
## F-statistic: 1.445 on 1 and 44 DF,  p-value: 0.2358
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.44336 -0.08716 -0.01901  0.05997  0.51186 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.4466182  0.9244720   1.565   0.1259  
## total_visits_per_capita        -0.0038199  0.0388958  -0.098   0.9223  
## percent_under_125000           -0.0052573  0.0030928  -1.700   0.0973 .
## avg_household_size             -0.0460727  0.2042411  -0.226   0.8227  
## pop_density                     9.8415583 17.2850582   0.569   0.5725  
## `percent more than 1 occupant` -0.0015998  0.0143328  -0.112   0.9117  
## `percent more than 1 unit`      0.0002911  0.0035541   0.082   0.9351  
## avg_median_age                 -0.0202930  0.0101142  -2.006   0.0520 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1734 on 38 degrees of freedom
## Multiple R-squared:  0.2307, Adjusted R-squared:  0.08904 
## F-statistic: 1.628 on 7 and 38 DF,  p-value: 0.1571
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.250e-04 -3.536e-04 -9.299e-05  1.889e-04  1.374e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)              8.664e-04  3.113e-04   2.783   0.0081 **
## total_visits_per_capita -5.081e-05  7.032e-05  -0.723   0.4740   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000487 on 41 degrees of freedom
## Multiple R-squared:  0.01258,    Adjusted R-squared:  -0.01151 
## F-statistic: 0.5222 on 1 and 41 DF,  p-value: 0.474
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.056e-04 -2.005e-04 -5.910e-06  1.589e-04  9.028e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     3.773e-03  1.927e-03   1.958   0.0582 .
## total_visits_per_capita        -9.536e-05  8.605e-05  -1.108   0.2753  
## percent_under_125000            1.152e-05  6.279e-06   1.835   0.0750 .
## avg_household_size             -5.325e-04  4.272e-04  -1.246   0.2209  
## pop_density                    -2.647e-02  3.556e-02  -0.744   0.4617  
## `percent more than 1 occupant`  6.017e-05  3.152e-05   1.909   0.0645 .
## `percent more than 1 unit`     -1.532e-05  7.838e-06  -1.954   0.0587 .
## avg_median_age                 -4.405e-05  2.144e-05  -2.055   0.0474 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003485 on 35 degrees of freedom
## Multiple R-squared:  0.5683, Adjusted R-squared:  0.4819 
## F-statistic: 6.581 on 7 and 35 DF,  p-value: 5.453e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.27864 -0.08814 -0.04013  0.04665  0.54005 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.44946    0.10995   4.088 0.000198 ***
## total_visits_per_capita -0.05219    0.02484  -2.101 0.041794 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.172 on 41 degrees of freedom
## Multiple R-squared:  0.09723,    Adjusted R-squared:  0.07521 
## F-statistic: 4.416 on 1 and 41 DF,  p-value: 0.04179
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23629 -0.08812  0.00274  0.05717  0.45120 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.932758   0.859619   2.248   0.0310 *
## total_visits_per_capita        -0.024598   0.038393  -0.641   0.5259  
## percent_under_125000           -0.005807   0.002801  -2.073   0.0456 *
## avg_household_size             -0.075965   0.190604  -0.399   0.6926  
## pop_density                    19.367879  15.864825   1.221   0.2303  
## `percent more than 1 occupant` -0.004109   0.014064  -0.292   0.7719  
## `percent more than 1 unit`     -0.001280   0.003497  -0.366   0.7166  
## avg_median_age                 -0.025643   0.009565  -2.681   0.0111 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1555 on 35 degrees of freedom
## Multiple R-squared:  0.3701, Adjusted R-squared:  0.2441 
## F-statistic: 2.938 on 7 and 35 DF,  p-value: 0.01577
## 
## [1] "Cases start date: 2020-07-06"
## [1] "Visits start date: 2020-06-22"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0005711 -0.0003040 -0.0000576  0.0001789  0.0017267 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              6.511e-04  2.686e-04   2.424   0.0195 *
## total_visits_per_capita -2.994e-05  6.173e-05  -0.485   0.6300  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004415 on 44 degrees of freedom
## Multiple R-squared:  0.00532,    Adjusted R-squared:  -0.01729 
## F-statistic: 0.2353 on 1 and 44 DF,  p-value: 0.63
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.165e-04 -1.818e-04 -1.559e-05  1.277e-04  8.571e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     2.579e-03  1.507e-03   1.712  0.09514 . 
## total_visits_per_capita        -1.021e-04  6.502e-05  -1.570  0.12459   
## percent_under_125000            1.756e-05  5.030e-06   3.491  0.00124 **
## avg_household_size             -2.398e-04  3.247e-04  -0.739  0.46467   
## pop_density                    -6.814e-02  2.870e-02  -2.374  0.02275 * 
## `percent more than 1 occupant`  2.369e-05  2.318e-05   1.022  0.31317   
## `percent more than 1 unit`     -9.891e-06  5.772e-06  -1.713  0.09477 . 
## avg_median_age                 -4.231e-05  1.645e-05  -2.572  0.01416 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002815 on 38 degrees of freedom
## Multiple R-squared:  0.6506, Adjusted R-squared:  0.5863 
## F-statistic: 10.11 on 7 and 38 DF,  p-value: 4.526e-07
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0005711 -0.0003040 -0.0000576  0.0001789  0.0017267 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              6.511e-04  2.686e-04   2.424   0.0195 *
## total_visits_per_capita -2.994e-05  6.173e-05  -0.485   0.6300  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004415 on 44 degrees of freedom
## Multiple R-squared:  0.00532,    Adjusted R-squared:  -0.01729 
## F-statistic: 0.2353 on 1 and 44 DF,  p-value: 0.63
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.165e-04 -1.818e-04 -1.559e-05  1.277e-04  8.571e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     2.579e-03  1.507e-03   1.712  0.09514 . 
## total_visits_per_capita        -1.021e-04  6.502e-05  -1.570  0.12459   
## percent_under_125000            1.756e-05  5.030e-06   3.491  0.00124 **
## avg_household_size             -2.398e-04  3.247e-04  -0.739  0.46467   
## pop_density                    -6.814e-02  2.870e-02  -2.374  0.02275 * 
## `percent more than 1 occupant`  2.369e-05  2.318e-05   1.022  0.31317   
## `percent more than 1 unit`     -9.891e-06  5.772e-06  -1.713  0.09477 . 
## avg_median_age                 -4.231e-05  1.645e-05  -2.572  0.01416 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002815 on 38 degrees of freedom
## Multiple R-squared:  0.6506, Adjusted R-squared:  0.5863 
## F-statistic: 10.11 on 7 and 38 DF,  p-value: 4.526e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16506 -0.04576 -0.01012  0.04111  0.24876 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.21653    0.05526   3.918 0.000308 ***
## total_visits_per_capita -0.01926    0.01270  -1.516 0.136547    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09084 on 44 degrees of freedom
## Multiple R-squared:  0.04967,    Adjusted R-squared:  0.02807 
## F-statistic:   2.3 on 1 and 44 DF,  p-value: 0.1365
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.255607 -0.049019 -0.007924  0.044331  0.187472 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.020381   0.450223   0.045   0.9641  
## total_visits_per_capita        -0.001845   0.019426  -0.095   0.9248  
## percent_under_125000            0.001339   0.001503   0.891   0.3787  
## avg_household_size              0.099443   0.097010   1.025   0.3118  
## pop_density                    -7.044632   8.575438  -0.821   0.4165  
## `percent more than 1 occupant` -0.013689   0.006925  -1.977   0.0554 .
## `percent more than 1 unit`      0.002529   0.001725   1.466   0.1507  
## avg_median_age                 -0.005806   0.004916  -1.181   0.2449  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08412 on 38 degrees of freedom
## Multiple R-squared:  0.2963, Adjusted R-squared:  0.1667 
## F-statistic: 2.286 on 7 and 38 DF,  p-value: 0.0479
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.882e-04 -2.794e-04 -6.207e-05  2.006e-04  1.670e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)              9.162e-04  2.797e-04   3.275  0.00215 **
## total_visits_per_capita -8.229e-05  6.310e-05  -1.304  0.19945   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004257 on 41 degrees of freedom
## Multiple R-squared:  0.03983,    Adjusted R-squared:  0.01641 
## F-statistic: 1.701 on 1 and 41 DF,  p-value: 0.1995
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004702 -0.0001934 -0.0000319  0.0001405  0.0008396 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     3.025e-03  1.495e-03   2.023 0.050731 .  
## total_visits_per_capita        -1.050e-04  6.900e-05  -1.522 0.137090    
## percent_under_125000            1.737e-05  4.830e-06   3.596 0.000987 ***
## avg_household_size             -2.173e-04  3.235e-04  -0.672 0.506250    
## pop_density                    -5.790e-02  2.774e-02  -2.087 0.044205 *  
## `percent more than 1 occupant`  1.300e-05  2.428e-05   0.535 0.595721    
## `percent more than 1 unit`     -9.987e-06  6.068e-06  -1.646 0.108751    
## avg_median_age                 -5.305e-05  1.640e-05  -3.234 0.002666 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000267 on 35 degrees of freedom
## Multiple R-squared:  0.6775, Adjusted R-squared:  0.613 
## F-statistic:  10.5 on 7 and 35 DF,  p-value: 4.944e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.197385 -0.050487 -0.009525  0.041598  0.206080 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.29207    0.05335   5.474 2.41e-06 ***
## total_visits_per_capita -0.03418    0.01203  -2.841  0.00698 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08119 on 41 degrees of freedom
## Multiple R-squared:  0.1644, Adjusted R-squared:  0.1441 
## F-statistic: 8.068 on 1 and 41 DF,  p-value: 0.006982
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.138526 -0.050304  0.001167  0.040536  0.174304 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     0.182820   0.404204   0.452  0.65385   
## total_visits_per_capita        -0.003422   0.018657  -0.183  0.85551   
## percent_under_125000            0.001267   0.001306   0.970  0.33851   
## avg_household_size              0.112386   0.087463   1.285  0.20725   
## pop_density                    -2.378901   7.499004  -0.317  0.75295   
## `percent more than 1 occupant` -0.018243   0.006566  -2.779  0.00872 **
## `percent more than 1 unit`      0.002517   0.001641   1.534  0.13404   
## avg_median_age                 -0.009946   0.004435  -2.243  0.03136 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0722 on 35 degrees of freedom
## Multiple R-squared:  0.436,  Adjusted R-squared:  0.3231 
## F-statistic: 3.865 on 7 and 35 DF,  p-value: 0.003251
model_results_1 <- model_results_1 %>%
  mutate(visits_start_date = as.Date(cases_start_date) - visits_lag)

There’s a lot of information there, and most of the model fits and their variation over time are better interpreted from the following plots. However, in terms of demographic correlations:

  • Early on, income and population density seem to be relevant, with r-squared overall about 0.3-0.5 for both log and non log. This changes to similar r-squareds, but occupants per room also starts to be relevant instead of population density, as time moves on. Sometimes the demographic variables do not have significant p values in the log version, or when you exclude ones that start below 10 cases.

  • At a visits start date of 2020-04-20, only occupants per room has a significant p value for change in cases, with r-squared 0.65. For change in log of cases, only visits has a significant p value, with r-squared of 0.5. Neither have significant p values when you exclude ones that start below 10 cases, however. A visits start date of 2020-05-11 has similar values but ONLY for change in cases, with visits, income, and occupants per room relevant, but none have significant p values for the change in log of cases and the multiple r-squared for the demographics correlation is very low. However, when you exxclude ones that start below 10 cases, the change in log of cases does have significant p values for visits and occupants per room, and the r-squared goes up to 0.4.

  • The last two weeks show high r-squareds as well for the demographic correlations for change in cases; specifically income, occupants per room, and units per structure seem relevant for change in cases. Change in log of cases has lower r-squareds for these weeks. Average median age may also start to become relevant in some of the last week models.

Plots of model fits over time

I’ll now plot how the model fit values change with each week. Note that in the graphs below, each data point represents the values from a model that uses the week of visits data starting on the date shown on the x axis, and the change in cases over the week that starts two weeks after the visits start date.

model_results_1 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared over time, 1 week time interval, 14 day lag, Alameda")
model_results_1 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 1 week time interval, 14 day lag, Alameda")
# split the log and not log for coefficient since log coefficient is much larger
model_results_1 %>% filter(model_type != "change in log of cases, starting above 0" & model_type != "change in log of cases, starting above 10") %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 1 week time interval, 14 day lag, only non log, Alameda")
model_results_1 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "P value of coefficient over time, 1 week time interval, 14 day lag, Alameda")

It does indeed seem that the models are much better in late March and early April, and drop off in ability starting in late April or early May. Which would be consistent with a hypothesized regime change.

However, I’m still not sure how much the fact that in the early time frames numbers of cases were very low would affect these results or the ability to interpret them. The change in log would be affected more drastically by going from a very small number to a slightly less small number (i.e. in the early phases of case growth), so this might mean that in the earlier weeks, zip codes with some case growth that start from a very low level of cases per person have their effects overstated in the models. I’m not sure if this is an issue or not.

I’m also generally unsure about which of the five models I used makes the most sense to look at, which is why I included all five for comparison.

How the change in cases magnitude varies by week

ac_cases_zip_week <- ac_cases_zip %>% 
  filter(date >= as.Date("2020-03-23")) %>%
  filter(as.numeric((date - as.Date("2020-03-23"))) %% 7 == 0) %>%
  mutate(log_cases_by_pop = log(cases_by_pop)) %>%
  group_by(zipcode) %>%
  mutate(change_cases_by_pop = c(NA, diff(cases_by_pop)),
         change_log_cases_by_pop = c(NA, diff(log_cases_by_pop)))

ac_cases_zip_week_avg <- ac_cases_zip_week %>%
  group_by(date) %>%
  summarize(avg_change_cases_by_pop = mean(change_cases_by_pop),
            avg_change_log_cases_by_pop = mean(change_log_cases_by_pop))

plot_ly() %>%
  add_trace(x = ~date, y = ~change_cases_by_pop, data = ac_cases_zip_week, type = 'scatter', mode = 'markers', color = ~zipcode) %>%
  add_trace(x = ~date, y = ~avg_change_cases_by_pop, data = ac_cases_zip_week_avg, type = "scatter", mode = "markers", marker = list(color = "rgb(0, 0, 0)"), name = "average") %>%
  layout(xaxis = list(title = "Date"), yaxis = list(title = "Change in cases per person relative to a week ago"), title = "Weekly change in cases per person over time")

It is true that there are a few zip codes that have much larger weekly changes in cases as time goes on, but for most of the zip codes the change in cases range is not too different from April through June. However, these few zip codes might have an impact, and this could be relevant? Aside from those, though, it seems that things are mostly on the same scale from early April through mid June.

plot_ly() %>%
  add_trace(x = ~date, y = ~change_log_cases_by_pop, data = ac_cases_zip_week, type = 'scatter', mode = 'markers', color = ~zipcode) %>%
  add_trace(x = ~date, y = ~avg_change_log_cases_by_pop, data = ac_cases_zip_week_avg, type = "scatter", mode = "markers", marker = list(color = "rgb(0, 0, 0)"), name = "average") %>%
  layout(xaxis = list(title = "Date"), yaxis = list(title = "Change in log(cases per person) relative to a week ago"), title = "Weekly change in log of cases per person over time")

With the change in log of cases, actually, it’s the reverse, that the big changes occur early on (which makes sense, since the log of a very small number changing to the log of a slightly smaller number can have a big impact). But mid April through early June all seems relatively similar in scale.

How the visits data magnitude varies by week

ac_visits_week <- ac_visits_zip %>%
  mutate(week_num = floor((date - as.Date("2020-03-09")) / 7 + 1)) %>%
  group_by(zipcode, week_num) %>%
  summarize(visits_per_capita_week = sum(visits_per_capita),
            weighted_visits_per_capita_week = sum(weighted_visits_per_capita))

ac_visits_week_avg <- ac_visits_week %>%
  filter(!is.na(visits_per_capita_week)) %>%
  group_by(week_num) %>%
  summarize(avg_visits_per_capita = mean(visits_per_capita_week),
            avg_weighted_visits_per_capita = mean(weighted_visits_per_capita_week))
  
plot_ly() %>%
  add_trace(x = ~week_num, y = ~visits_per_capita_week, data = ac_visits_week, type = 'scatter', mode = 'markers', color = ~zipcode) %>%
  add_trace(x = ~week_num, y = ~avg_visits_per_capita, data = ac_visits_week_avg, type = "scatter", mode = "markers", marker = list(color = "rgb(0, 0, 0)"), name = "average") %>% 
  layout(xaxis = list(title = "Week number (week 1 = week of 3/9)"), yaxis = list(title = "Total weekly visits per person"), title = "Weekly visits per person over time")
plot_ly() %>%
  add_trace(x = ~week_num, y = ~weighted_visits_per_capita_week, data = ac_visits_week, type = 'scatter', mode = 'markers', color = ~zipcode) %>%
  add_trace(x = ~week_num, y = ~avg_weighted_visits_per_capita, data = ac_visits_week_avg, type = "scatter", mode = "markers", marker = list(color = "rgb(0, 0, 0)"), name = "average") %>% 
  layout(xaxis = list(title = "Week number (week 1 = week of 3/9)"), yaxis = list(title = "Total weekly weighted visits per person"), title = "Weekly weighted visits per person over time")

Ability of two weeks of visits data to predict the change in cases over two weeks, two weeks later

Repeat but for a date range of 2 weeks.

Linear models and demographics correlations

cases_start_date <- as.Date("2020-03-23") # first cases start date to use
visits_lag <- 14 # in days
time_window_length <- 14 # in days

# data frame to store results
model_results_2 <- data.frame(model_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)

while(cases_start_date + time_window_length <= max(ac_cases_zip$date)) {
  model_results_curr <- testVisitsPrediction(ac_visits_zip, ac_cases_zip, cases_start_date, time_window_length, visits_lag, ac_dem_data, "Alameda")
  
  model_results_2 <- rbind(model_results_2, model_results_curr)
  
  cases_start_date <- cases_start_date + time_window_length # run again with new start date
}
## [1] "Cases start date: 2020-03-23"
## [1] "Visits start date: 2020-03-09"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.041e-04 -1.726e-04 -5.122e-05  1.457e-04  5.514e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -7.016e-05  1.848e-04  -0.380   0.7060  
## total_visits_per_capita  2.714e-05  1.548e-05   1.753   0.0865 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002195 on 44 degrees of freedom
## Multiple R-squared:  0.0653, Adjusted R-squared:  0.04405 
## F-statistic: 3.074 on 1 and 44 DF,  p-value: 0.08653
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.942e-04 -1.010e-04 -2.948e-05  7.064e-05  4.755e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -3.390e-05  1.013e-03  -0.033  0.97347   
## total_visits_per_capita        -2.989e-06  2.114e-05  -0.141  0.88829   
## percent_under_125000            7.102e-06  3.385e-06   2.098  0.04259 * 
## avg_household_size              1.589e-04  2.242e-04   0.709  0.48284   
## pop_density                    -6.428e-02  1.874e-02  -3.430  0.00147 **
## `percent more than 1 occupant` -1.173e-05  1.567e-05  -0.749  0.45873   
## `percent more than 1 unit`      1.903e-06  3.892e-06   0.489  0.62758   
## avg_median_age                 -1.011e-05  1.106e-05  -0.914  0.36653   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001897 on 38 degrees of freedom
## Multiple R-squared:  0.3971, Adjusted R-squared:  0.2861 
## F-statistic: 3.576 on 7 and 38 DF,  p-value: 0.004735
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.143e-04 -1.475e-04 -6.505e-05  1.088e-04  5.541e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -2.937e-04  2.022e-04  -1.453    0.155  
## total_visits_per_capita  4.408e-05  1.672e-05   2.637    0.012 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002142 on 38 degrees of freedom
## Multiple R-squared:  0.1547, Adjusted R-squared:  0.1324 
## F-statistic: 6.954 on 1 and 38 DF,  p-value: 0.01205
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.324e-04 -9.394e-05 -1.442e-05  7.081e-05  3.786e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -1.839e-04  1.016e-03  -0.181  0.85755   
## total_visits_per_capita         2.773e-06  2.245e-05   0.124  0.90248   
## percent_under_125000            7.160e-06  3.411e-06   2.099  0.04377 * 
## avg_household_size              8.481e-05  2.260e-04   0.375  0.70999   
## pop_density                    -6.689e-02  2.211e-02  -3.025  0.00487 **
## `percent more than 1 occupant`  4.422e-06  1.743e-05   0.254  0.80135   
## `percent more than 1 unit`      6.989e-07  3.911e-06   0.179  0.85928   
## avg_median_age                 -4.390e-06  1.164e-05  -0.377  0.70864   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001849 on 32 degrees of freedom
## Multiple R-squared:  0.4698, Adjusted R-squared:  0.3538 
## F-statistic: 4.051 on 7 and 32 DF,  p-value: 0.00278
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -1.21781 -0.32631 -0.06563  0.33129  1.60820 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             -1.42113    0.56010  -2.537 0.015398 *  
## total_visits_per_capita  0.19135    0.04631   4.132 0.000191 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.5934 on 38 degrees of freedom
## Multiple R-squared:   0.31,  Adjusted R-squared:  0.2918 
## F-statistic: 17.07 on 1 and 38 DF,  p-value: 0.0001907
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -1.09594 -0.21190  0.02201  0.26225  0.89674 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -2.825e+00  2.695e+00  -1.048  0.30249   
## total_visits_per_capita         8.091e-02  5.955e-02   1.359  0.18376   
## percent_under_125000            1.278e-02  9.048e-03   1.412  0.16759   
## avg_household_size              3.399e-01  5.996e-01   0.567  0.57477   
## pop_density                    -1.624e+02  5.865e+01  -2.769  0.00928 **
## `percent more than 1 occupant`  4.838e-02  4.623e-02   1.046  0.30321   
## `percent more than 1 unit`      8.161e-03  1.037e-02   0.787  0.43720   
## avg_median_age                  2.011e-02  3.088e-02   0.651  0.51962   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.4903 on 32 degrees of freedom
## Multiple R-squared:  0.6032, Adjusted R-squared:  0.5164 
## F-statistic:  6.95 on 7 and 32 DF,  p-value: 4.689e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             0.0003758         NA      NA       NA
## total_visits_per_capita        NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0.0003758         NA      NA       NA
## total_visits_per_capita               NA         NA      NA       NA
## percent_under_125000                  NA         NA      NA       NA
## avg_household_size                    NA         NA      NA       NA
## pop_density                           NA         NA      NA       NA
## `percent more than 1 occupant`        NA         NA      NA       NA
## `percent more than 1 unit`            NA         NA      NA       NA
## avg_median_age                        NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)               0.9163         NA      NA       NA
## total_visits_per_capita       NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.9163         NA      NA       NA
## total_visits_per_capita              NA         NA      NA       NA
## percent_under_125000                 NA         NA      NA       NA
## avg_household_size                   NA         NA      NA       NA
## pop_density                          NA         NA      NA       NA
## `percent more than 1 occupant`       NA         NA      NA       NA
## `percent more than 1 unit`           NA         NA      NA       NA
## avg_median_age                       NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Cases start date: 2020-04-06"
## [1] "Visits start date: 2020-03-23"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.583e-04 -1.959e-04 -6.233e-05  1.660e-04  1.320e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -4.112e-04  2.135e-04  -1.927  0.06051 . 
## total_visits_per_capita  8.558e-05  2.463e-05   3.474  0.00116 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003174 on 44 degrees of freedom
## Multiple R-squared:  0.2153, Adjusted R-squared:  0.1974 
## F-statistic: 12.07 on 1 and 44 DF,  p-value: 0.001163
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.149e-04 -1.628e-04 -4.777e-05  8.884e-05  1.082e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.376e-04  1.508e-03   0.357   0.7234  
## total_visits_per_capita         4.159e-06  3.853e-05   0.108   0.9146  
## percent_under_125000            1.397e-05  5.248e-06   2.661   0.0113 *
## avg_household_size             -2.444e-04  3.214e-04  -0.760   0.4517  
## pop_density                    -4.679e-02  3.033e-02  -1.543   0.1312  
## `percent more than 1 occupant`  3.002e-05  2.312e-05   1.298   0.2021  
## `percent more than 1 unit`     -8.070e-06  5.759e-06  -1.401   0.1692  
## avg_median_age                 -5.519e-06  1.718e-05  -0.321   0.7497  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000279 on 38 degrees of freedom
## Multiple R-squared:  0.4765, Adjusted R-squared:  0.3801 
## F-statistic: 4.942 on 7 and 38 DF,  p-value: 0.0004837
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.583e-04 -1.959e-04 -6.233e-05  1.660e-04  1.320e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -4.112e-04  2.135e-04  -1.927  0.06051 . 
## total_visits_per_capita  8.558e-05  2.463e-05   3.474  0.00116 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003174 on 44 degrees of freedom
## Multiple R-squared:  0.2153, Adjusted R-squared:  0.1974 
## F-statistic: 12.07 on 1 and 44 DF,  p-value: 0.001163
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.149e-04 -1.628e-04 -4.777e-05  8.884e-05  1.082e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.376e-04  1.508e-03   0.357   0.7234  
## total_visits_per_capita         4.159e-06  3.853e-05   0.108   0.9146  
## percent_under_125000            1.397e-05  5.248e-06   2.661   0.0113 *
## avg_household_size             -2.444e-04  3.214e-04  -0.760   0.4517  
## pop_density                    -4.679e-02  3.033e-02  -1.543   0.1312  
## `percent more than 1 occupant`  3.002e-05  2.312e-05   1.298   0.2021  
## `percent more than 1 unit`     -8.070e-06  5.759e-06  -1.401   0.1692  
## avg_median_age                 -5.519e-06  1.718e-05  -0.321   0.7497  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000279 on 38 degrees of freedom
## Multiple R-squared:  0.4765, Adjusted R-squared:  0.3801 
## F-statistic: 4.942 on 7 and 38 DF,  p-value: 0.0004837
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.58162 -0.31256 -0.06348  0.13711  0.81733 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             -0.52388    0.26758  -1.958 0.056611 .  
## total_visits_per_capita  0.12047    0.03088   3.901 0.000324 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3979 on 44 degrees of freedom
## Multiple R-squared:  0.257,  Adjusted R-squared:  0.2401 
## F-statistic: 15.22 on 1 and 44 DF,  p-value: 0.0003239
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.45827 -0.25112 -0.08958  0.14725  1.10073 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -1.991600   1.996233  -0.998    0.325
## total_visits_per_capita         0.067960   0.051020   1.332    0.191
## percent_under_125000            0.009830   0.006950   1.415    0.165
## avg_household_size              0.127410   0.425589   0.299    0.766
## pop_density                    13.009112  40.163206   0.324    0.748
## `percent more than 1 occupant`  0.020214   0.030619   0.660    0.513
## `percent more than 1 unit`      0.001020   0.007625   0.134    0.894
## avg_median_age                  0.018648   0.022744   0.820    0.417
## 
## Residual standard error: 0.3694 on 38 degrees of freedom
## Multiple R-squared:  0.447,  Adjusted R-squared:  0.3452 
## F-statistic: 4.388 on 7 and 38 DF,  p-value: 0.00119
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004875 -0.0002281 -0.0001163  0.0001903  0.0012688 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -2.841e-04  5.646e-04  -0.503    0.619
## total_visits_per_capita  7.632e-05  5.969e-05   1.278    0.212
## 
## Residual standard error: 0.000367 on 28 degrees of freedom
## Multiple R-squared:  0.05515,    Adjusted R-squared:  0.02141 
## F-statistic: 1.634 on 1 and 28 DF,  p-value: 0.2116
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.267e-04 -1.634e-04 -4.130e-05  8.205e-05  8.504e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.757e-03  2.146e-03   0.819   0.4217  
## total_visits_per_capita        -2.625e-05  7.179e-05  -0.366   0.7181  
## percent_under_125000            1.591e-05  6.879e-06   2.313   0.0305 *
## avg_household_size             -5.703e-04  5.475e-04  -1.042   0.3089  
## pop_density                    -1.119e-01  5.946e-02  -1.882   0.0732 .
## `percent more than 1 occupant`  5.787e-05  4.346e-05   1.331   0.1967  
## `percent more than 1 unit`     -1.400e-05  8.673e-06  -1.614   0.1208  
## avg_median_age                 -4.409e-06  2.736e-05  -0.161   0.8734  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003172 on 22 degrees of freedom
## Multiple R-squared:  0.4456, Adjusted R-squared:  0.2692 
## F-statistic: 2.526 on 7 and 22 DF,  p-value: 0.04553
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.62132 -0.22889 -0.08475  0.09513  0.80197 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -0.59278    0.60770  -0.975   0.3377  
## total_visits_per_capita  0.13076    0.06425   2.035   0.0514 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.395 on 28 degrees of freedom
## Multiple R-squared:  0.1289, Adjusted R-squared:  0.09775 
## F-statistic: 4.142 on 1 and 28 DF,  p-value: 0.0514
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.37693 -0.20451 -0.09016  0.07250  1.06417 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      1.536733   2.540835   0.605    0.551
## total_visits_per_capita          0.024495   0.085011   0.288    0.776
## percent_under_125000             0.007228   0.008146   0.887    0.384
## avg_household_size              -0.362199   0.648300  -0.559    0.582
## pop_density                    -20.984893  70.411022  -0.298    0.768
## `percent more than 1 occupant`   0.048832   0.051466   0.949    0.353
## `percent more than 1 unit`      -0.008722   0.010270  -0.849    0.405
## avg_median_age                  -0.015182   0.032391  -0.469    0.644
## 
## Residual standard error: 0.3755 on 22 degrees of freedom
## Multiple R-squared:  0.3814, Adjusted R-squared:  0.1845 
## F-statistic: 1.937 on 7 and 22 DF,  p-value: 0.1116
## 
## [1] "Cases start date: 2020-04-20"
## [1] "Visits start date: 2020-04-06"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.371e-04 -2.076e-04 -7.195e-05  5.372e-05  1.022e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -3.205e-04  1.918e-04  -1.671  0.10181   
## total_visits_per_capita  7.034e-05  2.253e-05   3.123  0.00317 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002991 on 44 degrees of freedom
## Multiple R-squared:  0.1814, Adjusted R-squared:  0.1628 
## F-statistic: 9.751 on 1 and 44 DF,  p-value: 0.003166
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.998e-04 -1.296e-04 -3.399e-05  9.847e-05  8.263e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.107e-03  1.318e-03   0.840   0.4061  
## total_visits_per_capita         8.465e-06  3.039e-05   0.279   0.7821  
## percent_under_125000            9.550e-06  4.606e-06   2.074   0.0450 *
## avg_household_size             -4.685e-04  2.855e-04  -1.641   0.1090  
## pop_density                    -3.649e-02  2.614e-02  -1.396   0.1709  
## `percent more than 1 occupant`  5.404e-05  2.007e-05   2.693   0.0105 *
## `percent more than 1 unit`     -8.428e-06  5.057e-06  -1.666   0.1039  
## avg_median_age                 -3.620e-06  1.455e-05  -0.249   0.8048  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002441 on 38 degrees of freedom
## Multiple R-squared:  0.529,  Adjusted R-squared:  0.4422 
## F-statistic: 6.097 on 7 and 38 DF,  p-value: 8.228e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.371e-04 -2.076e-04 -7.195e-05  5.372e-05  1.022e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -3.205e-04  1.918e-04  -1.671  0.10181   
## total_visits_per_capita  7.034e-05  2.253e-05   3.123  0.00317 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002991 on 44 degrees of freedom
## Multiple R-squared:  0.1814, Adjusted R-squared:  0.1628 
## F-statistic: 9.751 on 1 and 44 DF,  p-value: 0.003166
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.998e-04 -1.296e-04 -3.399e-05  9.847e-05  8.263e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.107e-03  1.318e-03   0.840   0.4061  
## total_visits_per_capita         8.465e-06  3.039e-05   0.279   0.7821  
## percent_under_125000            9.550e-06  4.606e-06   2.074   0.0450 *
## avg_household_size             -4.685e-04  2.855e-04  -1.641   0.1090  
## pop_density                    -3.649e-02  2.614e-02  -1.396   0.1709  
## `percent more than 1 occupant`  5.404e-05  2.007e-05   2.693   0.0105 *
## `percent more than 1 unit`     -8.428e-06  5.057e-06  -1.666   0.1039  
## avg_median_age                 -3.620e-06  1.455e-05  -0.249   0.8048  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002441 on 38 degrees of freedom
## Multiple R-squared:  0.529,  Adjusted R-squared:  0.4422 
## F-statistic: 6.097 on 7 and 38 DF,  p-value: 8.228e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.28064 -0.11727 -0.05565  0.05360  0.51807 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -0.14037    0.12555  -1.118  0.26964   
## total_visits_per_capita  0.04698    0.01475   3.185  0.00266 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1958 on 44 degrees of freedom
## Multiple R-squared:  0.1874, Adjusted R-squared:  0.1689 
## F-statistic: 10.15 on 1 and 44 DF,  p-value: 0.002657
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23848 -0.09881 -0.06119  0.06594  0.59522 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.235727   1.026513  -0.230   0.8196  
## total_visits_per_capita         0.042821   0.023668   1.809   0.0783 .
## percent_under_125000            0.003061   0.003587   0.853   0.3988  
## avg_household_size             -0.140705   0.222308  -0.633   0.5306  
## pop_density                     8.042524  20.359053   0.395   0.6950  
## `percent more than 1 occupant`  0.016885   0.015628   1.080   0.2868  
## `percent more than 1 unit`     -0.001150   0.003938  -0.292   0.7718  
## avg_median_age                  0.006208   0.011328   0.548   0.5869  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1901 on 38 degrees of freedom
## Multiple R-squared:  0.3384, Adjusted R-squared:  0.2165 
## F-statistic: 2.776 on 7 and 38 DF,  p-value: 0.01962
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.588e-04 -2.354e-04 -1.047e-04  6.654e-05  1.006e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -3.359e-04  4.492e-04  -0.748     0.46
## total_visits_per_capita  7.408e-05  4.895e-05   1.514     0.14
## 
## Residual standard error: 0.0003382 on 32 degrees of freedom
## Multiple R-squared:  0.06681,    Adjusted R-squared:  0.03765 
## F-statistic: 2.291 on 1 and 32 DF,  p-value: 0.1399
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.171e-04 -1.477e-04 -4.167e-05  7.415e-05  7.458e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.666e-03  1.637e-03   1.018   0.3180  
## total_visits_per_capita        -3.333e-05  6.296e-05  -0.529   0.6010  
## percent_under_125000            1.071e-05  5.431e-06   1.972   0.0594 .
## avg_household_size             -4.965e-04  3.816e-04  -1.301   0.2046  
## pop_density                    -6.009e-02  3.789e-02  -1.586   0.1249  
## `percent more than 1 occupant`  5.781e-05  2.869e-05   2.015   0.0543 .
## `percent more than 1 unit`     -8.117e-06  6.780e-06  -1.197   0.2420  
## avg_median_age                 -7.361e-06  2.077e-05  -0.354   0.7260  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002714 on 26 degrees of freedom
## Multiple R-squared:  0.5117, Adjusted R-squared:  0.3802 
## F-statistic: 3.892 on 7 and 26 DF,  p-value: 0.005004
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23367 -0.10788 -0.04093  0.09698  0.52535 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.04428    0.22886   0.193    0.848
## total_visits_per_capita  0.02765    0.02494   1.109    0.276
## 
## Residual standard error: 0.1723 on 32 degrees of freedom
## Multiple R-squared:  0.037,  Adjusted R-squared:  0.006908 
## F-statistic:  1.23 on 1 and 32 DF,  p-value: 0.2758
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.22515 -0.06085 -0.03200  0.05749  0.30223 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.392416   0.830987   0.472    0.641
## total_visits_per_capita         0.022688   0.031968   0.710    0.484
## percent_under_125000            0.002033   0.002757   0.737    0.468
## avg_household_size             -0.098288   0.193756  -0.507    0.616
## pop_density                    -0.280138  19.238394  -0.015    0.988
## `percent more than 1 occupant`  0.013350   0.014567   0.916    0.368
## `percent more than 1 unit`      0.001170   0.003442   0.340    0.737
## avg_median_age                 -0.007805   0.010548  -0.740    0.466
## 
## Residual standard error: 0.1378 on 26 degrees of freedom
## Multiple R-squared:  0.4995, Adjusted R-squared:  0.3647 
## F-statistic: 3.707 on 7 and 26 DF,  p-value: 0.00655
## 
## [1] "Cases start date: 2020-05-04"
## [1] "Visits start date: 2020-04-20"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.942e-04 -2.604e-04 -8.277e-05  9.431e-05  1.692e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -3.775e-04  2.563e-04  -1.473  0.14781   
## total_visits_per_capita  8.237e-05  2.872e-05   2.868  0.00631 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004008 on 44 degrees of freedom
## Multiple R-squared:  0.1575, Adjusted R-squared:  0.1384 
## F-statistic: 8.228 on 1 and 44 DF,  p-value: 0.006312
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.101e-04 -1.468e-04 -2.338e-05  1.336e-04  8.640e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -2.179e-04  1.456e-03  -0.150  0.88185   
## total_visits_per_capita         7.013e-06  3.308e-05   0.212  0.83322   
## percent_under_125000            1.024e-05  5.305e-06   1.930  0.06114 . 
## avg_household_size             -2.488e-04  3.139e-04  -0.793  0.43288   
## pop_density                     1.641e-02  2.970e-02   0.553  0.58369   
## `percent more than 1 occupant`  6.796e-05  2.234e-05   3.043  0.00424 **
## `percent more than 1 unit`     -7.787e-06  5.570e-06  -1.398  0.17024   
## avg_median_age                  8.852e-06  1.602e-05   0.552  0.58386   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002715 on 38 degrees of freedom
## Multiple R-squared:  0.6661, Adjusted R-squared:  0.6046 
## F-statistic: 10.83 on 7 and 38 DF,  p-value: 2.017e-07
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.942e-04 -2.604e-04 -8.277e-05  9.431e-05  1.692e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             -3.775e-04  2.563e-04  -1.473  0.14781   
## total_visits_per_capita  8.237e-05  2.872e-05   2.868  0.00631 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004008 on 44 degrees of freedom
## Multiple R-squared:  0.1575, Adjusted R-squared:  0.1384 
## F-statistic: 8.228 on 1 and 44 DF,  p-value: 0.006312
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.101e-04 -1.468e-04 -2.338e-05  1.336e-04  8.640e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -2.179e-04  1.456e-03  -0.150  0.88185   
## total_visits_per_capita         7.013e-06  3.308e-05   0.212  0.83322   
## percent_under_125000            1.024e-05  5.305e-06   1.930  0.06114 . 
## avg_household_size             -2.488e-04  3.139e-04  -0.793  0.43288   
## pop_density                     1.641e-02  2.970e-02   0.553  0.58369   
## `percent more than 1 occupant`  6.796e-05  2.234e-05   3.043  0.00424 **
## `percent more than 1 unit`     -7.787e-06  5.570e-06  -1.398  0.17024   
## avg_median_age                  8.852e-06  1.602e-05   0.552  0.58386   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002715 on 38 degrees of freedom
## Multiple R-squared:  0.6661, Adjusted R-squared:  0.6046 
## F-statistic: 10.83 on 7 and 38 DF,  p-value: 2.017e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.26650 -0.16091 -0.05792  0.09496  0.56972 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.07937    0.13326   0.596    0.555
## total_visits_per_capita  0.01768    0.01493   1.184    0.243
## 
## Residual standard error: 0.2084 on 44 degrees of freedom
## Multiple R-squared:  0.03089,    Adjusted R-squared:  0.008862 
## F-statistic: 1.402 on 1 and 44 DF,  p-value: 0.2427
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.31347 -0.08291 -0.01794  0.09641  0.38555 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.8309490  0.8322853  -0.998    0.324  
## total_visits_per_capita         0.0077586  0.0189074   0.410    0.684  
## percent_under_125000            0.0042229  0.0030324   1.393    0.172  
## avg_household_size              0.1209979  0.1794275   0.674    0.504  
## pop_density                    38.7726066 16.9752983   2.284    0.028 *
## `percent more than 1 occupant`  0.0074103  0.0127685   0.580    0.565  
## `percent more than 1 unit`      0.0002723  0.0031840   0.086    0.932  
## avg_median_age                  0.0057910  0.0091590   0.632    0.531  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1552 on 38 degrees of freedom
## Multiple R-squared:  0.5359, Adjusted R-squared:  0.4504 
## F-statistic: 6.269 on 7 and 38 DF,  p-value: 6.396e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.274e-04 -2.853e-04 -9.491e-05  9.463e-05  1.662e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -3.999e-04  5.292e-04  -0.756    0.455
## total_visits_per_capita  8.763e-05  5.554e-05   1.578    0.124
## 
## Residual standard error: 0.0004394 on 34 degrees of freedom
## Multiple R-squared:  0.06821,    Adjusted R-squared:  0.04081 
## F-statistic: 2.489 on 1 and 34 DF,  p-value: 0.1239
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.533e-04 -1.573e-04 -5.257e-05  1.681e-04  8.502e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.142e-04  1.716e-03   0.300   0.7667  
## total_visits_per_capita        -5.762e-05  6.807e-05  -0.846   0.4045  
## percent_under_125000            1.174e-05  6.334e-06   1.854   0.0743 .
## avg_household_size              3.954e-06  4.022e-04   0.010   0.9922  
## pop_density                     1.929e-02  4.481e-02   0.431   0.6700  
## `percent more than 1 occupant`  4.604e-05  3.054e-05   1.508   0.1429  
## `percent more than 1 unit`     -6.051e-06  7.035e-06  -0.860   0.3970  
## avg_median_age                 -1.271e-05  2.176e-05  -0.584   0.5636  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002887 on 28 degrees of freedom
## Multiple R-squared:  0.6688, Adjusted R-squared:  0.586 
## F-statistic: 8.078 on 7 and 28 DF,  p-value: 2.243e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.28187 -0.12476 -0.03656  0.07025  0.52544 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)             0.249504   0.225992   1.104    0.277
## total_visits_per_capita 0.003059   0.023718   0.129    0.898
## 
## Residual standard error: 0.1877 on 34 degrees of freedom
## Multiple R-squared:  0.0004889,  Adjusted R-squared:  -0.02891 
## F-statistic: 0.01663 on 1 and 34 DF,  p-value: 0.8982
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.27592 -0.08846 -0.02511  0.08044  0.33614 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.1268761  0.8593468  -0.148    0.884
## total_visits_per_capita        -0.0168713  0.0340848  -0.495    0.624
## percent_under_125000            0.0048755  0.0031717   1.537    0.135
## avg_household_size              0.0860445  0.2014036   0.427    0.672
## pop_density                    33.6119251 22.4364468   1.498    0.145
## `percent more than 1 occupant`  0.0031704  0.0152909   0.207    0.837
## `percent more than 1 unit`     -0.0007145  0.0035228  -0.203    0.841
## avg_median_age                 -0.0020794  0.0108935  -0.191    0.850
## 
## Residual standard error: 0.1446 on 28 degrees of freedom
## Multiple R-squared:  0.5115, Adjusted R-squared:  0.3894 
## F-statistic: 4.189 on 7 and 28 DF,  p-value: 0.002858
## 
## [1] "Cases start date: 2020-05-18"
## [1] "Visits start date: 2020-05-04"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006806 -0.0004179 -0.0001642  0.0001250  0.0035109 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -2.904e-04  4.573e-04  -0.635   0.5287  
## total_visits_per_capita  9.665e-05  5.375e-05   1.798   0.0791 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000733 on 44 degrees of freedom
## Multiple R-squared:  0.06844,    Adjusted R-squared:  0.04727 
## F-statistic: 3.233 on 1 and 44 DF,  p-value: 0.07905
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -8.473e-04 -3.052e-04  7.430e-06  2.257e-04  2.063e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.370e-05  2.679e-03   0.020   0.9841  
## total_visits_per_capita        -7.994e-05  6.384e-05  -1.252   0.2182  
## percent_under_125000            2.295e-05  9.434e-06   2.433   0.0198 *
## avg_household_size             -2.910e-04  6.059e-04  -0.480   0.6338  
## pop_density                    -2.217e-02  5.414e-02  -0.410   0.6844  
## `percent more than 1 occupant`  1.121e-04  4.195e-05   2.672   0.0110 *
## `percent more than 1 unit`     -1.531e-05  1.032e-05  -1.484   0.1461  
## avg_median_age                  9.778e-06  2.917e-05   0.335   0.7393  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005003 on 38 degrees of freedom
## Multiple R-squared:  0.6252, Adjusted R-squared:  0.5561 
## F-statistic: 9.055 on 7 and 38 DF,  p-value: 1.569e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006806 -0.0004179 -0.0001642  0.0001250  0.0035109 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -2.904e-04  4.573e-04  -0.635   0.5287  
## total_visits_per_capita  9.665e-05  5.375e-05   1.798   0.0791 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000733 on 44 degrees of freedom
## Multiple R-squared:  0.06844,    Adjusted R-squared:  0.04727 
## F-statistic: 3.233 on 1 and 44 DF,  p-value: 0.07905
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -8.473e-04 -3.052e-04  7.430e-06  2.257e-04  2.063e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.370e-05  2.679e-03   0.020   0.9841  
## total_visits_per_capita        -7.994e-05  6.384e-05  -1.252   0.2182  
## percent_under_125000            2.295e-05  9.434e-06   2.433   0.0198 *
## avg_household_size             -2.910e-04  6.059e-04  -0.480   0.6338  
## pop_density                    -2.217e-02  5.414e-02  -0.410   0.6844  
## `percent more than 1 occupant`  1.121e-04  4.195e-05   2.672   0.0110 *
## `percent more than 1 unit`     -1.531e-05  1.032e-05  -1.484   0.1461  
## avg_median_age                  9.778e-06  2.917e-05   0.335   0.7393  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005003 on 38 degrees of freedom
## Multiple R-squared:  0.6252, Adjusted R-squared:  0.5561 
## F-statistic: 9.055 on 7 and 38 DF,  p-value: 1.569e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.25955 -0.15699 -0.04550  0.06658  0.64417 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.13964    0.13246   1.054    0.298
## total_visits_per_capita  0.01552    0.01557   0.997    0.324
## 
## Residual standard error: 0.2123 on 44 degrees of freedom
## Multiple R-squared:  0.02209,    Adjusted R-squared:  -0.0001311 
## F-statistic: 0.9941 on 1 and 44 DF,  p-value: 0.3242
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.26167 -0.13355 -0.04017  0.09739  0.61868 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -1.928e-01  1.096e+00  -0.176    0.861  
## total_visits_per_capita        -1.695e-02  2.611e-02  -0.649    0.520  
## percent_under_125000            7.333e-03  3.859e-03   1.900    0.065 .
## avg_household_size              1.051e-01  2.478e-01   0.424    0.674  
## pop_density                    -1.979e+01  2.215e+01  -0.894    0.377  
## `percent more than 1 occupant` -3.234e-03  1.716e-02  -0.188    0.852  
## `percent more than 1 unit`      2.126e-05  4.221e-03   0.005    0.996  
## avg_median_age                 -2.034e-03  1.193e-02  -0.170    0.866  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2046 on 38 degrees of freedom
## Multiple R-squared:  0.2152, Adjusted R-squared:  0.0706 
## F-statistic: 1.488 on 7 and 38 DF,  p-value: 0.2008
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006591 -0.0004667 -0.0002539  0.0001212  0.0034822 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -2.855e-05  7.333e-04  -0.039    0.969
## total_visits_per_capita  7.057e-05  8.146e-05   0.866    0.392
## 
## Residual standard error: 0.0008102 on 35 degrees of freedom
## Multiple R-squared:  0.02099,    Adjusted R-squared:  -0.006982 
## F-statistic: 0.7504 on 1 and 35 DF,  p-value: 0.3922
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -8.601e-04 -3.476e-04  3.180e-06  2.172e-04  1.955e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     8.685e-04  3.258e-03   0.267   0.7917  
## total_visits_per_capita        -1.138e-04  1.122e-04  -1.015   0.3186  
## percent_under_125000            2.124e-05  1.107e-05   1.920   0.0648 .
## avg_household_size             -5.734e-04  7.244e-04  -0.792   0.4351  
## pop_density                    -7.239e-03  7.976e-02  -0.091   0.9283  
## `percent more than 1 occupant`  1.435e-04  5.349e-05   2.682   0.0119 *
## `percent more than 1 unit`     -2.238e-05  1.328e-05  -1.686   0.1026  
## avg_median_age                  2.030e-05  3.493e-05   0.581   0.5657  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005518 on 29 degrees of freedom
## Multiple R-squared:  0.6238, Adjusted R-squared:  0.533 
## F-statistic: 6.869 on 7 and 29 DF,  p-value: 7.562e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24450 -0.10141 -0.02358  0.07560  0.40977 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              0.284784   0.142328   2.001   0.0532 .
## total_visits_per_capita -0.001442   0.015810  -0.091   0.9278  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1572 on 35 degrees of freedom
## Multiple R-squared:  0.0002377,  Adjusted R-squared:  -0.02833 
## F-statistic: 0.00832 on 1 and 35 DF,  p-value: 0.9278
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.207134 -0.083105  0.009154  0.071050  0.276511 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.332111   0.778539   0.427    0.673
## total_visits_per_capita        -0.037870   0.026809  -1.413    0.168
## percent_under_125000            0.004491   0.002645   1.698    0.100
## avg_household_size             -0.072956   0.173110  -0.421    0.677
## pop_density                     4.230980  19.060902   0.222    0.826
## `percent more than 1 occupant`  0.020252   0.012782   1.584    0.124
## `percent more than 1 unit`     -0.004859   0.003173  -1.531    0.137
## avg_median_age                  0.005557   0.008347   0.666    0.511
## 
## Residual standard error: 0.1319 on 29 degrees of freedom
## Multiple R-squared:  0.4175, Adjusted R-squared:  0.2769 
## F-statistic:  2.97 on 7 and 29 DF,  p-value: 0.01784
## 
## [1] "Cases start date: 2020-06-01"
## [1] "Visits start date: 2020-05-18"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.106e-04 -3.503e-04 -2.064e-04  5.561e-05  2.391e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -6.624e-05  4.265e-04  -0.155    0.877
## total_visits_per_capita  6.678e-05  5.029e-05   1.328    0.191
## 
## Residual standard error: 0.000653 on 44 degrees of freedom
## Multiple R-squared:  0.03853,    Adjusted R-squared:  0.01668 
## F-statistic: 1.763 on 1 and 44 DF,  p-value: 0.1911
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.547e-04 -2.533e-04  1.642e-05  1.344e-04  9.157e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     5.846e-04  1.725e-03   0.339 0.736589    
## total_visits_per_capita        -6.313e-05  4.170e-05  -1.514 0.138330    
## percent_under_125000            2.191e-05  5.825e-06   3.761 0.000570 ***
## avg_household_size             -4.499e-04  3.814e-04  -1.180 0.245457    
## pop_density                    -1.971e-02  3.390e-02  -0.581 0.564505    
## `percent more than 1 occupant`  1.151e-04  2.700e-05   4.264 0.000128 ***
## `percent more than 1 unit`     -1.730e-05  6.620e-06  -2.614 0.012757 *  
## avg_median_age                  6.401e-06  1.909e-05   0.335 0.739276    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000323 on 38 degrees of freedom
## Multiple R-squared:  0.7968, Adjusted R-squared:  0.7593 
## F-statistic: 21.28 on 7 and 38 DF,  p-value: 2.452e-11
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.106e-04 -3.503e-04 -2.064e-04  5.561e-05  2.391e-03 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -6.624e-05  4.265e-04  -0.155    0.877
## total_visits_per_capita  6.678e-05  5.029e-05   1.328    0.191
## 
## Residual standard error: 0.000653 on 44 degrees of freedom
## Multiple R-squared:  0.03853,    Adjusted R-squared:  0.01668 
## F-statistic: 1.763 on 1 and 44 DF,  p-value: 0.1911
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.547e-04 -2.533e-04  1.642e-05  1.344e-04  9.157e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     5.846e-04  1.725e-03   0.339 0.736589    
## total_visits_per_capita        -6.313e-05  4.170e-05  -1.514 0.138330    
## percent_under_125000            2.191e-05  5.825e-06   3.761 0.000570 ***
## avg_household_size             -4.499e-04  3.814e-04  -1.180 0.245457    
## pop_density                    -1.971e-02  3.390e-02  -0.581 0.564505    
## `percent more than 1 occupant`  1.151e-04  2.700e-05   4.264 0.000128 ***
## `percent more than 1 unit`     -1.730e-05  6.620e-06  -2.614 0.012757 *  
## avg_median_age                  6.401e-06  1.909e-05   0.335 0.739276    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000323 on 38 degrees of freedom
## Multiple R-squared:  0.7968, Adjusted R-squared:  0.7593 
## F-statistic: 21.28 on 7 and 38 DF,  p-value: 2.452e-11
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21772 -0.09803  0.00576  0.05281  0.68230 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.10003    0.09856   1.015    0.316
## total_visits_per_capita  0.01185    0.01162   1.020    0.313
## 
## Residual standard error: 0.1509 on 44 degrees of freedom
## Multiple R-squared:  0.0231, Adjusted R-squared:  0.0009018 
## F-statistic: 1.041 on 1 and 44 DF,  p-value: 0.3133
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14951 -0.08210 -0.01522  0.05010  0.67787 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.2697528  0.7628666  -0.354    0.726
## total_visits_per_capita         0.0138819  0.0184398   0.753    0.456
## percent_under_125000            0.0029964  0.0025756   1.163    0.252
## avg_household_size             -0.0624203  0.1686430  -0.370    0.713
## pop_density                     6.5079586 14.9904576   0.434    0.667
## `percent more than 1 occupant`  0.0122788  0.0119398   1.028    0.310
## `percent more than 1 unit`     -0.0006286  0.0029271  -0.215    0.831
## avg_median_age                  0.0067859  0.0084421   0.804    0.427
## 
## Residual standard error: 0.1428 on 38 degrees of freedom
## Multiple R-squared:  0.2438, Adjusted R-squared:  0.1045 
## F-statistic:  1.75 on 7 and 38 DF,  p-value: 0.1265
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.824e-04 -3.796e-04 -2.144e-04  5.212e-05  2.342e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             3.157e-04  5.631e-04   0.561    0.578
## total_visits_per_capita 2.687e-05  6.392e-05   0.420    0.677
## 
## Residual standard error: 0.00069 on 38 degrees of freedom
## Multiple R-squared:  0.004628,   Adjusted R-squared:  -0.02157 
## F-statistic: 0.1767 on 1 and 38 DF,  p-value: 0.6766
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.570e-04 -2.654e-04 -3.370e-06  1.802e-04  8.927e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     1.165e-03  2.074e-03   0.562 0.578050    
## total_visits_per_capita        -8.966e-05  5.967e-05  -1.503 0.142725    
## percent_under_125000            2.175e-05  6.409e-06   3.393 0.001857 ** 
## avg_household_size             -5.855e-04  4.357e-04  -1.344 0.188461    
## pop_density                    -2.199e-02  3.834e-02  -0.574 0.570296    
## `percent more than 1 occupant`  1.281e-04  3.247e-05   3.946 0.000408 ***
## `percent more than 1 unit`     -2.120e-05  8.234e-06  -2.575 0.014856 *  
## avg_median_age                  9.306e-06  2.150e-05   0.433 0.668046    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003443 on 32 degrees of freedom
## Multiple R-squared:  0.7913, Adjusted R-squared:  0.7457 
## F-statistic: 17.33 on 7 and 32 DF,  p-value: 2.989e-09
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.197355 -0.054562  0.005246  0.054840  0.228332 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)   
## (Intercept)              0.262406   0.079758   3.290  0.00217 **
## total_visits_per_capita -0.006552   0.009054  -0.724  0.47374   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09773 on 38 degrees of freedom
## Multiple R-squared:  0.01359,    Adjusted R-squared:  -0.01237 
## F-statistic: 0.5236 on 1 and 38 DF,  p-value: 0.4737
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.130678 -0.052897  0.001441  0.049115  0.137448 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      0.123722   0.483449   0.256   0.7997  
## total_visits_per_capita         -0.020018   0.013911  -1.439   0.1599  
## percent_under_125000             0.003517   0.001494   2.354   0.0249 *
## avg_household_size              -0.026972   0.101590  -0.266   0.7923  
## pop_density                    -10.255613   8.937740  -1.147   0.2597  
## `percent more than 1 occupant`   0.009383   0.007570   1.240   0.2242  
## `percent more than 1 unit`      -0.001398   0.001920  -0.728   0.4717  
## avg_median_age                   0.003037   0.005013   0.606   0.5489  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08027 on 32 degrees of freedom
## Multiple R-squared:  0.4397, Adjusted R-squared:  0.3171 
## F-statistic: 3.587 on 7 and 32 DF,  p-value: 0.005825
## 
## [1] "Cases start date: 2020-06-15"
## [1] "Visits start date: 2020-06-01"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0008085 -0.0004375 -0.0001865  0.0001484  0.0029762 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             3.991e-04  4.929e-04   0.810    0.423
## total_visits_per_capita 5.145e-05  6.072e-05   0.847    0.401
## 
## Residual standard error: 0.0008182 on 44 degrees of freedom
## Multiple R-squared:  0.01606,    Adjusted R-squared:  -0.006307 
## F-statistic: 0.718 on 1 and 44 DF,  p-value: 0.4014
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -9.783e-04 -2.925e-04 -6.817e-05  2.003e-04  1.492e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     4.035e-03  2.629e-03   1.535  0.13316   
## total_visits_per_capita        -4.378e-05  6.142e-05  -0.713  0.48036   
## percent_under_125000            2.000e-05  8.789e-06   2.276  0.02856 * 
## avg_household_size             -9.305e-04  5.704e-04  -1.631  0.11109   
## pop_density                    -1.090e-01  4.958e-02  -2.197  0.03415 * 
## `percent more than 1 occupant`  1.443e-04  4.054e-05   3.560  0.00102 **
## `percent more than 1 unit`     -2.125e-05  1.010e-05  -2.104  0.04207 * 
## avg_median_age                 -3.587e-05  2.872e-05  -1.249  0.21929   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004926 on 38 degrees of freedom
## Multiple R-squared:  0.6919, Adjusted R-squared:  0.6352 
## F-statistic: 12.19 on 7 and 38 DF,  p-value: 4.783e-08
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0008085 -0.0004375 -0.0001865  0.0001484  0.0029762 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             3.991e-04  4.929e-04   0.810    0.423
## total_visits_per_capita 5.145e-05  6.072e-05   0.847    0.401
## 
## Residual standard error: 0.0008182 on 44 degrees of freedom
## Multiple R-squared:  0.01606,    Adjusted R-squared:  -0.006307 
## F-statistic: 0.718 on 1 and 44 DF,  p-value: 0.4014
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -9.783e-04 -2.925e-04 -6.817e-05  2.003e-04  1.492e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     4.035e-03  2.629e-03   1.535  0.13316   
## total_visits_per_capita        -4.378e-05  6.142e-05  -0.713  0.48036   
## percent_under_125000            2.000e-05  8.789e-06   2.276  0.02856 * 
## avg_household_size             -9.305e-04  5.704e-04  -1.631  0.11109   
## pop_density                    -1.090e-01  4.958e-02  -2.197  0.03415 * 
## `percent more than 1 occupant`  1.443e-04  4.054e-05   3.560  0.00102 **
## `percent more than 1 unit`     -2.125e-05  1.010e-05  -2.104  0.04207 * 
## avg_median_age                 -3.587e-05  2.872e-05  -1.249  0.21929   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004926 on 38 degrees of freedom
## Multiple R-squared:  0.6919, Adjusted R-squared:  0.6352 
## F-statistic: 12.19 on 7 and 38 DF,  p-value: 4.783e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.31281 -0.15383 -0.05755  0.04981  0.72126 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             0.262106   0.145686   1.799   0.0789 .
## total_visits_per_capita 0.008423   0.017944   0.469   0.6411  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2418 on 44 degrees of freedom
## Multiple R-squared:  0.004982,   Adjusted R-squared:  -0.01763 
## F-statistic: 0.2203 on 1 and 44 DF,  p-value: 0.6411
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.39165 -0.12977 -0.03604  0.06043  0.67866 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      1.905304   1.269302   1.501   0.1416  
## total_visits_per_capita          0.018675   0.029655   0.630   0.5326  
## percent_under_125000            -0.004974   0.004243  -1.172   0.2484  
## avg_household_size              -0.158620   0.275374  -0.576   0.5680  
## pop_density                    -36.269967  23.938804  -1.515   0.1380  
## `percent more than 1 occupant`   0.002294   0.019570   0.117   0.9073  
## `percent more than 1 unit`       0.001486   0.004878   0.305   0.7623  
## avg_median_age                  -0.024209   0.013866  -1.746   0.0889 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2378 on 38 degrees of freedom
## Multiple R-squared:  0.1687, Adjusted R-squared:  0.01551 
## F-statistic: 1.101 on 7 and 38 DF,  p-value: 0.3821
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0007782 -0.0005124 -0.0002038  0.0001185  0.0028928 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             7.976e-04  5.885e-04   1.355    0.183
## total_visits_per_capita 9.303e-06  7.013e-05   0.133    0.895
## 
## Residual standard error: 0.0008419 on 39 degrees of freedom
## Multiple R-squared:  0.000451,   Adjusted R-squared:  -0.02518 
## F-statistic: 0.0176 on 1 and 39 DF,  p-value: 0.8952
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0009483 -0.0003362 -0.0001286  0.0002107  0.0014928 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     3.394e-03  3.025e-03   1.122  0.26989   
## total_visits_per_capita        -5.569e-06  8.403e-05  -0.066  0.94755   
## percent_under_125000            2.329e-05  9.859e-06   2.363  0.02419 * 
## avg_household_size             -8.735e-04  6.362e-04  -1.373  0.17897   
## pop_density                    -9.447e-02  5.313e-02  -1.778  0.08461 . 
## `percent more than 1 occupant`  1.331e-04  4.858e-05   2.740  0.00982 **
## `percent more than 1 unit`     -1.983e-05  1.213e-05  -1.634  0.11171   
## avg_median_age                 -3.757e-05  3.152e-05  -1.192  0.24168   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005114 on 33 degrees of freedom
## Multiple R-squared:  0.688,  Adjusted R-squared:  0.6218 
## F-statistic:  10.4 on 7 and 33 DF,  p-value: 8.066e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23828 -0.12639 -0.04829  0.05285  0.63131 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.20109    0.13823   1.455    0.154
## total_visits_per_capita  0.01504    0.01647   0.913    0.367
## 
## Residual standard error: 0.1978 on 39 degrees of freedom
## Multiple R-squared:  0.02093,    Adjusted R-squared:  -0.004175 
## F-statistic: 0.8337 on 1 and 39 DF,  p-value: 0.3668
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.37098 -0.08433 -0.02093  0.07447  0.53772 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     9.304e-01  1.079e+00   0.862   0.3950  
## total_visits_per_capita         6.987e-02  2.999e-02   2.330   0.0261 *
## percent_under_125000           -6.534e-04  3.518e-03  -0.186   0.8538  
## avg_household_size             -2.102e-02  2.270e-01  -0.093   0.9268  
## pop_density                    -1.363e+01  1.896e+01  -0.719   0.4775  
## `percent more than 1 occupant` -1.798e-02  1.734e-02  -1.037   0.3072  
## `percent more than 1 unit`      4.275e-03  4.329e-03   0.987   0.3306  
## avg_median_age                 -2.793e-02  1.125e-02  -2.483   0.0183 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1825 on 33 degrees of freedom
## Multiple R-squared:  0.2945, Adjusted R-squared:  0.1449 
## F-statistic: 1.968 on 7 and 33 DF,  p-value: 0.08986
## 
## [1] "Cases start date: 2020-06-29"
## [1] "Visits start date: 2020-06-15"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0011642 -0.0005608 -0.0001829  0.0003950  0.0030670 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              1.223e-03  5.299e-04   2.307   0.0258 *
## total_visits_per_capita -1.095e-05  6.097e-05  -0.180   0.8583  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0008788 on 44 degrees of freedom
## Multiple R-squared:  0.0007326,  Adjusted R-squared:  -0.02198 
## F-statistic: 0.03226 on 1 and 44 DF,  p-value: 0.8583
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.196e-03 -3.561e-04 -1.832e-05  2.327e-04  1.270e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     5.581e-03  2.844e-03   1.963  0.05704 . 
## total_visits_per_capita        -7.854e-05  6.142e-05  -1.279  0.20878   
## percent_under_125000            3.000e-05  9.510e-06   3.155  0.00314 **
## avg_household_size             -7.244e-04  6.215e-04  -1.166  0.25107   
## pop_density                    -1.044e-01  5.373e-02  -1.943  0.05939 . 
## `percent more than 1 occupant`  8.580e-05  4.394e-05   1.953  0.05825 . 
## `percent more than 1 unit`     -2.271e-05  1.092e-05  -2.080  0.04429 * 
## avg_median_age                 -7.870e-05  3.110e-05  -2.531  0.01565 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005328 on 38 degrees of freedom
## Multiple R-squared:  0.6828, Adjusted R-squared:  0.6243 
## F-statistic: 11.68 on 7 and 38 DF,  p-value: 8.083e-08
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0011642 -0.0005608 -0.0001829  0.0003950  0.0030670 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)              1.223e-03  5.299e-04   2.307   0.0258 *
## total_visits_per_capita -1.095e-05  6.097e-05  -0.180   0.8583  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0008788 on 44 degrees of freedom
## Multiple R-squared:  0.0007326,  Adjusted R-squared:  -0.02198 
## F-statistic: 0.03226 on 1 and 44 DF,  p-value: 0.8583
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.196e-03 -3.561e-04 -1.832e-05  2.327e-04  1.270e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     5.581e-03  2.844e-03   1.963  0.05704 . 
## total_visits_per_capita        -7.854e-05  6.142e-05  -1.279  0.20878   
## percent_under_125000            3.000e-05  9.510e-06   3.155  0.00314 **
## avg_household_size             -7.244e-04  6.215e-04  -1.166  0.25107   
## pop_density                    -1.044e-01  5.373e-02  -1.943  0.05939 . 
## `percent more than 1 occupant`  8.580e-05  4.394e-05   1.953  0.05825 . 
## `percent more than 1 unit`     -2.271e-05  1.092e-05  -2.080  0.04429 * 
## avg_median_age                 -7.870e-05  3.110e-05  -2.531  0.01565 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005328 on 38 degrees of freedom
## Multiple R-squared:  0.6828, Adjusted R-squared:  0.6243 
## F-statistic: 11.68 on 7 and 38 DF,  p-value: 8.083e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.42051 -0.08988 -0.03170  0.02882  0.82658 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.55002    0.14262   3.856 0.000372 ***
## total_visits_per_capita -0.02426    0.01641  -1.478 0.146549    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2365 on 44 degrees of freedom
## Multiple R-squared:  0.04729,    Adjusted R-squared:  0.02564 
## F-statistic: 2.184 on 1 and 44 DF,  p-value: 0.1465
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.69890 -0.09637 -0.00803  0.03917  0.59215 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.466268   1.191985   1.230   0.2262  
## total_visits_per_capita        -0.001831   0.025745  -0.071   0.9437  
## percent_under_125000           -0.003909   0.003986  -0.981   0.3330  
## avg_household_size              0.049838   0.260499   0.191   0.8493  
## pop_density                     3.039125  22.522290   0.135   0.8934  
## `percent more than 1 occupant` -0.015212   0.018418  -0.826   0.4140  
## `percent more than 1 unit`      0.002819   0.004577   0.616   0.5416  
## avg_median_age                 -0.026086   0.013034  -2.001   0.0525 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2233 on 38 degrees of freedom
## Multiple R-squared:  0.2666, Adjusted R-squared:  0.1315 
## F-statistic: 1.974 on 7 and 38 DF,  p-value: 0.08459
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0011190 -0.0005534 -0.0001736  0.0003890  0.0029688 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)   
## (Intercept)              1.765e-03  5.494e-04   3.213  0.00256 **
## total_visits_per_capita -6.455e-05  6.202e-05  -1.041  0.30406   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000843 on 41 degrees of freedom
## Multiple R-squared:  0.02574,    Adjusted R-squared:  0.001979 
## F-statistic: 1.083 on 1 and 41 DF,  p-value: 0.3041
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.880e-04 -2.584e-04 -5.388e-05  2.092e-04  1.214e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     6.758e-03  2.781e-03   2.430  0.02038 * 
## total_visits_per_capita        -9.541e-05  6.418e-05  -1.487  0.14606   
## percent_under_125000            2.899e-05  9.033e-06   3.210  0.00284 **
## avg_household_size             -7.544e-04  6.095e-04  -1.238  0.22402   
## pop_density                    -8.330e-02  5.151e-02  -1.617  0.11482   
## `percent more than 1 occupant`  7.276e-05  4.536e-05   1.604  0.11766   
## `percent more than 1 unit`     -2.512e-05  1.131e-05  -2.221  0.03293 * 
## avg_median_age                 -9.713e-05  3.075e-05  -3.159  0.00326 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0005003 on 35 degrees of freedom
## Multiple R-squared:  0.707,  Adjusted R-squared:  0.6484 
## F-statistic: 12.07 on 7 and 35 DF,  p-value: 1.015e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.31640 -0.11411 -0.04938  0.01447  0.72690 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.74218    0.13863   5.354 3.57e-06 ***
## total_visits_per_capita -0.04325    0.01565  -2.763  0.00853 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2127 on 41 degrees of freedom
## Multiple R-squared:  0.157,  Adjusted R-squared:  0.1364 
## F-statistic: 7.635 on 1 and 41 DF,  p-value: 0.008531
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.26825 -0.09262 -0.01178  0.04973  0.54705 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     2.131823   1.033262   2.063  0.04657 * 
## total_visits_per_capita        -0.013681   0.023840  -0.574  0.56973   
## percent_under_125000           -0.004553   0.003355  -1.357  0.18350   
## avg_household_size              0.031537   0.226412   0.139  0.89002   
## pop_density                    16.778814  19.134369   0.877  0.38652   
## `percent more than 1 occupant` -0.022158   0.016849  -1.315  0.19703   
## `percent more than 1 unit`      0.001204   0.004202   0.286  0.77623   
## avg_median_age                 -0.035686   0.011423  -3.124  0.00357 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1859 on 35 degrees of freedom
## Multiple R-squared:  0.4506, Adjusted R-squared:  0.3408 
## F-statistic: 4.102 on 7 and 35 DF,  p-value: 0.002203
model_results_2 <- model_results_2 %>%
  mutate(visits_start_date = as.Date(cases_start_date) - visits_lag)

Plots of model fits over time

model_results_2 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared over time, 2 week time interval, 14 day lag")
model_results_2 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 2 week time interval, 14 day lag")
# split the log and not log for coefficient since log coefficient is much larger
model_results_2 %>% filter(model_type != "change in log of cases, starting above 0" & model_type != "change in log of cases, starting above 10") %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 2 week time interval, 14 day lag, only non log")
model_results_2 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "P value of coefficient over time, 2 week time interval, 14 day lag")

This is pretty consistent with the findings for using one week.

San Francisco - ability of one week of visits data to predict the change in cases over one week, two weeks later

I repeat the first of the above two analyses, but for San Francisco county.

Linear models and demographics correlations

# first load relevant zip codes and block groups they contain
# block groups
sf_blockgroups <-
  block_groups("CA","San Francisco", cb=F, progress_bar=F) %>%
  st_transform('+proj=longlat +datum=WGS84')

sf_bgs <- sf_blockgroups %>% pull(GEOID)

sf_bg_zctas <- sf_blockgroups %>%
  st_centroid() %>%
  st_join(zctas_94_95) %>%
  dplyr::select(GEOID, ZCTA5CE10) %>%
  rename(blockgroup = GEOID, zipcode = ZCTA5CE10)

sf_fips <- fips("CA", "San Francisco") %>% substr(3,5)

sf_pop_zip <- pullCensus("B01003_001E", sf_fips) %>% 
  left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_pop_zip = sum(B01003_001E))

# SF case data
sf_cases_zip <- 
  read_csv("https://raw.githubusercontent.com/datadesk/california-coronavirus-data/master/latimes-place-totals.csv") %>%
  filter(county == 'San Francisco') %>%
  rename(cases = confirmed_cases, zipcode = place) %>%
  left_join(sf_pop_zip) %>%
  mutate(cases_by_pop = cases / total_pop_zip)

# load sf visits data
sf_visits_zip_1 <- readRDS(paste0(sg_path, "weekly-patterns/v2/sf_zip_visits_daily_sum_hourly_03-09-20_05-24-20.rds"))
sf_visits_zip_2 <- readRDS(paste0(sg_path, "weekly-patterns/v2/sf_zip_visits_daily_sum_hourly_05-25-20_06-21-20.rds"))
sf_visits_zip <- rbind(sf_visits_zip_1, sf_visits_zip_2)

# get visits per capita
sf_visits_zip <- sf_visits_zip %>% left_join(sf_pop_zip) %>%
  rename(total_visits = total_visits_avg) %>%
  mutate(visits_per_capita = total_visits / total_pop_zip)

# get demographic data
sf_pop_bg <- pullCensus("B01003_001E", sf_fips) %>% 
  rename(total_pop = B01003_001E)

# average household size
sf_avg_household_size <- pullCensus("B25010_001E", sf_fips) %>% 
  filter(B25010_001E > 0) %>%
  left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  left_join(sf_pop_bg) %>%
  group_by(zipcode) %>%
  summarize(avg_household_size = weighted.mean(B25010_001E, total_pop)) %>%
  filter(!is.na(zipcode))

# occupants per room
sf_occupants_zip <- pullCensus("group(B25014)", sf_fips) %>% 
  dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>% 
  gather(key = "variable", value = "estimate", -blockgroup) %>% 
  mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>% 
  dplyr::select(-variable) %>% 
  separate(label, into = c(NA, NA, NA,"occupants per room"), sep = "!!") %>% 
  filter(!is.na(`occupants per room`)) %>%
  group_by(blockgroup, `occupants per room`) %>%
  summarize(estimate_tot = sum(estimate)) %>% 
  spread(key = `occupants per room`, value = estimate_tot) %>%
  mutate(total_nums = `0.50 or less occupants per room` + `0.51 to 1.00 occupants per room` + `1.01 to 1.50 occupants per room` + `1.51 to 2.00 occupants per room` + `2.01 or more occupants per room`) %>%
  left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_nums = sum(total_nums), total_0.5less = sum(`0.50 or less occupants per room`), total_0.5to1 = sum(`0.51 to 1.00 occupants per room`), total_1to1.5 = sum(`1.01 to 1.50 occupants per room`), total_1.5to2 = sum(`1.51 to 2.00 occupants per room`), total_2more = sum(`2.01 or more occupants per room`)) %>%
  mutate(`percent more than 1 occupant` = (total_1to1.5 + total_1.5to2 + total_2more) * 100/ total_nums, `percent less than 1 occupant` = (100-`percent more than 1 occupant`), `percent 0.5 or less occupants` = total_0.5less*100/total_nums, `percent more than 0.5 occupants` = (100-`percent 0.5 or less occupants`), `percent more than 2 occupants` = total_2more*100/total_nums)

# population density
sf_pop_density_zip <- sf_cases_zip %>% filter(date == max(date)) %>%
  dplyr::select(zipcode, total_pop_zip) %>%
  left_join(zctas_94_95, by = c("zipcode" = "ZCTA5CE10")) %>%
  st_as_sf() %>%
  mutate(zip_area = st_area(.), pop_density = total_pop_zip / zip_area) %>%
  filter(!is.na(pop_density))

# bucketed household size
sf_house_size_zip <- pullCensus("group(B11016)", sf_fips) %>% 
  dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>% 
  gather(key = "variable", value = "estimate", -blockgroup) %>% 
  mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>% 
  dplyr::select(-variable) %>% 
  separate(label, into = c(NA, NA, "type", "size"), sep = "!!") %>% 
  filter(!is.na(type)) %>%
  filter(!is.na(size)) %>% 
  dplyr::select(-type) %>%
  group_by(blockgroup, size) %>%
  summarize(`total of this size` = sum(estimate)) %>% 
  spread(key = size, value = `total of this size`) %>%
  mutate(total_nums = `1-person household` + `2-person household` + `3-person household` + `4-person household` + `5-person household`+ `6-person household` + `7-or-more person household`) %>%
  left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_nums = sum(total_nums), total_1 = sum(`1-person household`), total_2 = sum(`2-person household`), total_3 = sum(`3-person household`), total_4 = sum(`4-person household`), total_5 = sum(`5-person household`), total_6 = sum(`6-person household`), total_7more = sum(`7-or-more person household`)) %>%
  mutate(`percent 5 or more` = (total_5 + total_6 + total_7more)* 100/ total_nums, `percent 1 or 2 only` = (total_1 + total_2)*100/total_nums)

# units in structure
sf_units_zip <- pullCensus("group(B25024)", sf_fips) %>% dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>% 
  gather(key = "variable", value = "estimate", -blockgroup) %>% 
  mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>% 
  dplyr::select(-variable) %>% 
  separate(label, into = c(NA, NA, "units"), sep = "!!") %>% 
  filter(!is.na(units)) %>%
  spread(key = units, value = estimate) %>%
  mutate(total_nums = `1, attached` + `1, detached` + `10 to 19` + `2` + `20 to 49`+ `3 or 4` + `5 to 9`+ `50 or more`+ `Boat, RV, van, etc.`+ `Mobile home`, total_20more = `20 to 49`+`50 or more`, total_10more = `10 to 19` + `20 to 49`+`50 or more`, total_1 = `1, attached` + `1, detached`) %>%
  left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_nums = sum(total_nums), total_20more = sum(total_20more), total_10more = sum(total_20more), total_1_only = sum(total_1)) %>%
  mutate(`percent 10 or more units` = total_10more*100/total_nums, `percent 20 or more units` = total_20more*100/total_nums, `percent 1 only` = total_1_only*100/total_nums, `percent more than 1 unit` = (100 - `percent 1 only`))

# income
sf_income_zip <- pullCensus("group(B19001)", sf_fips) %>% dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>% 
  gather(key = "variable", value = "estimate", -blockgroup) %>% 
  mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>% 
  dplyr::select(-variable) %>% 
  separate(label, into = c(NA, NA, "income"), sep = "!!") %>% 
  filter(!is.na(income)) %>%
  spread(key = income, value = estimate) %>%
  mutate(total_nums = `Less than $10,000` + `$10,000 to $14,999` + `$15,000 to $19,999` + `$20,000 to $24,999` + `$25,000 to $29,999` + `$30,000 to $34,999` + `$35,000 to $39,999` + `$40,000 to $44,999` + `$45,000 to $49,999` + `$50,000 to $59,999` + `$60,000 to $74,999` + `$75,000 to $99,999` + `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_75000 = `$75,000 to $99,999` + `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_100000 = `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_125000 = `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`) %>%
  left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  group_by(zipcode) %>%
  summarize(total_nums = sum(total_nums), total_over_75000 = sum(over_75000), total_over_100000 = sum(over_100000), total_over_125000 = sum(over_125000)) %>%
  mutate(percent_over_75000 = total_over_75000*100 / total_nums,
         percent_under_75000 = (100 - percent_over_75000),
         percent_over_100000 = total_over_100000*100 / total_nums,
         percent_under_100000 = (100 - percent_over_100000),
         percent_over_125000 = total_over_125000*100 / total_nums,
        percent_under_125000 = (100 - percent_over_125000))

# median age
sf_median_age_zip <- pullCensus("B01002_001E", sf_fips) %>% 
  rename(median_age = B01002_001E) %>%
  filter(median_age > 0) %>% # remove invalid results
  left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>% 
  left_join(sf_pop_bg) %>%
  group_by(zipcode) %>%
  summarize(avg_median_age = weighted.mean(median_age, total_pop)) %>%
  filter(!is.na(zipcode))

sf_dem_data <- left_join(sf_avg_household_size, sf_pop_density_zip %>% dplyr::select(pop_density, zipcode)) %>% 
  left_join(sf_occupants_zip %>% dplyr::select(`percent more than 1 occupant`, `percent more than 0.5 occupants`, `percent more than 2 occupants`, zipcode)) %>%
  left_join(sf_units_zip %>% dplyr::select(`percent 10 or more units`, `percent more than 1 unit`, zipcode)) %>% 
  left_join(sf_income_zip %>% dplyr::select(percent_under_75000, percent_under_100000, percent_under_125000, zipcode)) %>% 
  left_join(sf_median_age_zip) %>%
  as.data.frame() %>% 
  filter(!is.na(zipcode) & !is.na(avg_household_size))

cases_start_date <- as.Date("2020-04-21") # first cases start date to use, SF data doesn't start till 4/20 and some days are missing
visits_lag <- 14 # in days
time_window_length <- 7 # in days

# data frame to store results
model_results_1_sf <- data.frame(model_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)

while(cases_start_date + time_window_length <= max(sf_cases_zip$date) & cases_start_date + time_window_length - visits_lag <= max(sf_visits_zip$date)) {
  model_results_curr <- testVisitsPrediction(sf_visits_zip, sf_cases_zip, cases_start_date, time_window_length, visits_lag, sf_dem_data, "San Francisco")

  model_results_1_sf <- rbind(model_results_1_sf, model_results_curr)

  cases_start_date <- cases_start_date + time_window_length # run again with new start date
}
## [1] "Cases start date: 2020-04-21"
## [1] "Visits start date: 2020-04-07"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.774e-04 -1.546e-04 -8.217e-05  2.702e-05  9.709e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -2.581e-05  2.312e-04  -0.112    0.912
## total_visits_per_capita  8.601e-05  7.446e-05   1.155    0.260
## 
## Residual standard error: 0.0002826 on 23 degrees of freedom
## Multiple R-squared:  0.05482,    Adjusted R-squared:  0.01373 
## F-statistic: 1.334 on 1 and 23 DF,  p-value: 0.2599
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.170e-04 -1.518e-04 -8.907e-05  1.306e-04  8.255e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -2.655e-04  2.046e-03  -0.130    0.898
## total_visits_per_capita         6.612e-05  1.659e-04   0.399    0.695
## percent_under_125000            7.987e-06  7.643e-06   1.045    0.311
## avg_household_size              1.651e-06  3.631e-04   0.005    0.996
## pop_density                    -8.983e-03  1.437e-02  -0.625    0.540
## `percent more than 1 occupant` -9.175e-06  1.546e-05  -0.594    0.561
## `percent more than 1 unit`      2.276e-06  7.157e-06   0.318    0.754
## avg_median_age                 -4.145e-06  2.894e-05  -0.143    0.888
## 
## Residual standard error: 0.0003107 on 17 degrees of freedom
## Multiple R-squared:  0.1555, Adjusted R-squared:  -0.1922 
## F-statistic: 0.4472 on 7 and 17 DF,  p-value: 0.8586
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.774e-04 -1.546e-04 -8.217e-05  2.702e-05  9.709e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -2.581e-05  2.312e-04  -0.112    0.912
## total_visits_per_capita  8.601e-05  7.446e-05   1.155    0.260
## 
## Residual standard error: 0.0002826 on 23 degrees of freedom
## Multiple R-squared:  0.05482,    Adjusted R-squared:  0.01373 
## F-statistic: 1.334 on 1 and 23 DF,  p-value: 0.2599
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.170e-04 -1.518e-04 -8.907e-05  1.306e-04  8.255e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -2.655e-04  2.046e-03  -0.130    0.898
## total_visits_per_capita         6.612e-05  1.659e-04   0.399    0.695
## percent_under_125000            7.987e-06  7.643e-06   1.045    0.311
## avg_household_size              1.651e-06  3.631e-04   0.005    0.996
## pop_density                    -8.983e-03  1.437e-02  -0.625    0.540
## `percent more than 1 occupant` -9.175e-06  1.546e-05  -0.594    0.561
## `percent more than 1 unit`      2.276e-06  7.157e-06   0.318    0.754
## avg_median_age                 -4.145e-06  2.894e-05  -0.143    0.888
## 
## Residual standard error: 0.0003107 on 17 degrees of freedom
## Multiple R-squared:  0.1555, Adjusted R-squared:  -0.1922 
## F-statistic: 0.4472 on 7 and 17 DF,  p-value: 0.8586
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12396 -0.06851 -0.02184  0.05074  0.23629 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -0.02350    0.07295  -0.322   0.7503  
## total_visits_per_capita  0.05184    0.02350   2.206   0.0376 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08917 on 23 degrees of freedom
## Multiple R-squared:  0.1747, Adjusted R-squared:  0.1388 
## F-statistic: 4.868 on 1 and 23 DF,  p-value: 0.03762
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12443 -0.06108 -0.01012  0.06673  0.21339 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.038803   0.651835   0.060    0.953
## total_visits_per_capita         0.032154   0.052839   0.609    0.551
## percent_under_125000            0.002491   0.002435   1.023    0.321
## avg_household_size             -0.031278   0.115668  -0.270    0.790
## pop_density                    -0.091926   4.578454  -0.020    0.984
## `percent more than 1 occupant` -0.003069   0.004924  -0.623    0.541
## `percent more than 1 unit`     -0.000745   0.002280  -0.327    0.748
## avg_median_age                  0.000159   0.009219   0.017    0.986
## 
## Residual standard error: 0.09897 on 17 degrees of freedom
## Multiple R-squared:  0.2485, Adjusted R-squared:  -0.06098 
## F-statistic: 0.8029 on 7 and 17 DF,  p-value: 0.5961
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0002461 -0.0001823 -0.0001103  0.0001408  0.0009349 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             2.054e-04  3.497e-04   0.587    0.564
## total_visits_per_capita 1.861e-05  1.075e-04   0.173    0.864
## 
## Residual standard error: 0.0002962 on 20 degrees of freedom
## Multiple R-squared:  0.001496,   Adjusted R-squared:  -0.04843 
## F-statistic: 0.02996 on 1 and 20 DF,  p-value: 0.8643
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.727e-04 -1.476e-04 -2.294e-05  3.853e-05  6.508e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -1.033e-03  2.522e-03  -0.410    0.688
## total_visits_per_capita        -1.454e-04  2.163e-04  -0.672    0.512
## percent_under_125000            8.068e-06  8.479e-06   0.951    0.358
## avg_household_size              1.117e-04  4.598e-04   0.243    0.812
## pop_density                    -2.630e-02  2.286e-02  -1.150    0.269
## `percent more than 1 occupant`  1.050e-05  3.380e-05   0.311    0.761
## `percent more than 1 unit`      4.669e-06  9.015e-06   0.518    0.613
## avg_median_age                  2.301e-05  3.630e-05   0.634    0.536
## 
## Residual standard error: 0.0003034 on 14 degrees of freedom
## Multiple R-squared:  0.267,  Adjusted R-squared:  -0.09957 
## F-statistic: 0.7284 on 7 and 14 DF,  p-value: 0.6516
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.118302 -0.078913 -0.004338  0.055414  0.217143 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.09902    0.10548   0.939    0.359
## total_visits_per_capita  0.01614    0.03243   0.498    0.624
## 
## Residual standard error: 0.08935 on 20 degrees of freedom
## Multiple R-squared:  0.01224,    Adjusted R-squared:  -0.03715 
## F-statistic: 0.2478 on 1 and 20 DF,  p-value: 0.6241
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09083 -0.03993 -0.02074  0.04966  0.13942 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.3265922  0.6427536  -0.508    0.619
## total_visits_per_capita        -0.0626193  0.0551274  -1.136    0.275
## percent_under_125000            0.0024144  0.0021609   1.117    0.283
## avg_household_size              0.0217460  0.1171768   0.186    0.855
## pop_density                    -4.2302348  5.8263517  -0.726    0.480
## `percent more than 1 occupant`  0.0059665  0.0086131   0.693    0.500
## `percent more than 1 unit`      0.0002237  0.0022976   0.097    0.924
## avg_median_age                  0.0122078  0.0092517   1.320    0.208
## 
## Residual standard error: 0.07731 on 14 degrees of freedom
## Multiple R-squared:  0.4823, Adjusted R-squared:  0.2235 
## F-statistic: 1.863 on 7 and 14 DF,  p-value: 0.1523
## 
## [1] "Cases start date: 2020-04-28"
## [1] "Visits start date: 2020-04-14"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0003281 -0.0001878 -0.0000342  0.0001046  0.0004986 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -2.227e-04  1.860e-04  -1.198   0.2433  
## total_visits_per_capita  1.288e-04  5.365e-05   2.401   0.0248 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000226 on 23 degrees of freedom
## Multiple R-squared:  0.2004, Adjusted R-squared:  0.1656 
## F-statistic: 5.764 on 1 and 23 DF,  p-value: 0.02484
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.289e-04 -1.448e-04 -5.830e-06  7.845e-05  4.667e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -7.953e-04  1.585e-03  -0.502    0.622
## total_visits_per_capita         1.488e-04  1.298e-04   1.146    0.268
## percent_under_125000            1.444e-06  6.321e-06   0.228    0.822
## avg_household_size              1.031e-04  2.863e-04   0.360    0.723
## pop_density                     1.175e-02  1.186e-02   0.991    0.336
## `percent more than 1 occupant`  5.408e-06  1.291e-05   0.419    0.680
## `percent more than 1 unit`      1.909e-06  5.501e-06   0.347    0.733
## avg_median_age                 -2.390e-06  2.326e-05  -0.103    0.919
## 
## Residual standard error: 0.0002381 on 17 degrees of freedom
## Multiple R-squared:  0.3437, Adjusted R-squared:  0.07342 
## F-statistic: 1.272 on 7 and 17 DF,  p-value: 0.3209
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0003281 -0.0001878 -0.0000342  0.0001046  0.0004986 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -2.227e-04  1.860e-04  -1.198   0.2433  
## total_visits_per_capita  1.288e-04  5.365e-05   2.401   0.0248 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000226 on 23 degrees of freedom
## Multiple R-squared:  0.2004, Adjusted R-squared:  0.1656 
## F-statistic: 5.764 on 1 and 23 DF,  p-value: 0.02484
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.289e-04 -1.448e-04 -5.830e-06  7.845e-05  4.667e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -7.953e-04  1.585e-03  -0.502    0.622
## total_visits_per_capita         1.488e-04  1.298e-04   1.146    0.268
## percent_under_125000            1.444e-06  6.321e-06   0.228    0.822
## avg_household_size              1.031e-04  2.863e-04   0.360    0.723
## pop_density                     1.175e-02  1.186e-02   0.991    0.336
## `percent more than 1 occupant`  5.408e-06  1.291e-05   0.419    0.680
## `percent more than 1 unit`      1.909e-06  5.501e-06   0.347    0.733
## avg_median_age                 -2.390e-06  2.326e-05  -0.103    0.919
## 
## Residual standard error: 0.0002381 on 17 degrees of freedom
## Multiple R-squared:  0.3437, Adjusted R-squared:  0.07342 
## F-statistic: 1.272 on 7 and 17 DF,  p-value: 0.3209
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15098 -0.05555 -0.00507  0.04396  0.17610 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -0.06915    0.06713  -1.030   0.3137  
## total_visits_per_capita  0.05148    0.01937   2.658   0.0141 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08157 on 23 degrees of freedom
## Multiple R-squared:  0.235,  Adjusted R-squared:  0.2017 
## F-statistic: 7.065 on 1 and 23 DF,  p-value: 0.01405
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.148339 -0.039165  0.008371  0.032601  0.111044 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.3033449  0.5494907  -0.552   0.5881  
## total_visits_per_capita         0.0615037  0.0450117   1.366   0.1896  
## percent_under_125000            0.0002300  0.0021917   0.105   0.9176  
## avg_household_size              0.0216058  0.0992784   0.218   0.8303  
## pop_density                     7.3810671  4.1112744   1.795   0.0904 .
## `percent more than 1 occupant`  0.0012334  0.0044748   0.276   0.7861  
## `percent more than 1 unit`      0.0001144  0.0019073   0.060   0.9529  
## avg_median_age                  0.0013846  0.0080639   0.172   0.8657  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08257 on 17 degrees of freedom
## Multiple R-squared:  0.4206, Adjusted R-squared:  0.1821 
## F-statistic: 1.763 on 7 and 17 DF,  p-value: 0.1605
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0003280 -0.0002026 -0.0000667  0.0001327  0.0004974 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -2.178e-04  2.941e-04  -0.741    0.468
## total_visits_per_capita  1.276e-04  8.088e-05   1.578    0.130
## 
## Residual standard error: 0.0002421 on 20 degrees of freedom
## Multiple R-squared:  0.1107, Adjusted R-squared:  0.06625 
## F-statistic:  2.49 on 1 and 20 DF,  p-value: 0.1303
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.071e-04 -1.378e-04 -4.929e-05  7.571e-05  4.878e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     1.339e-05  1.921e-03   0.007    0.995
## total_visits_per_capita         1.339e-04  1.514e-04   0.885    0.391
## percent_under_125000           -5.712e-07  6.602e-06  -0.087    0.932
## avg_household_size             -1.086e-05  3.360e-04  -0.032    0.975
## pop_density                     2.673e-02  1.857e-02   1.440    0.172
## `percent more than 1 occupant`  2.574e-05  2.494e-05   1.032    0.320
## `percent more than 1 unit`     -1.586e-06  6.785e-06  -0.234    0.819
## avg_median_age                 -1.198e-05  2.764e-05  -0.434    0.671
## 
## Residual standard error: 0.0002352 on 14 degrees of freedom
## Multiple R-squared:  0.4121, Adjusted R-squared:  0.1182 
## F-statistic: 1.402 on 7 and 14 DF,  p-value: 0.2791
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.145268 -0.057158  0.004115  0.059673  0.168587 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -0.02139    0.10507  -0.204    0.841
## total_visits_per_capita  0.03897    0.02890   1.349    0.193
## 
## Residual standard error: 0.08649 on 20 degrees of freedom
## Multiple R-squared:  0.08336,    Adjusted R-squared:  0.03753 
## F-statistic: 1.819 on 1 and 20 DF,  p-value: 0.1925
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.108834 -0.042472  0.004964  0.042425  0.103401 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -0.2424422  0.5635049  -0.430  0.67357   
## total_visits_per_capita         0.0533436  0.0443922   1.202  0.24944   
## percent_under_125000           -0.0001407  0.0019363  -0.073  0.94308   
## avg_household_size              0.0203076  0.0985442   0.206  0.83970   
## pop_density                    16.7924651  5.4449416   3.084  0.00808 **
## `percent more than 1 occupant`  0.0042643  0.0073151   0.583  0.56920   
## `percent more than 1 unit`     -0.0005039  0.0019899  -0.253  0.80378   
## avg_median_age                 -0.0001340  0.0081072  -0.017  0.98705   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06899 on 14 degrees of freedom
## Multiple R-squared:  0.5917, Adjusted R-squared:  0.3875 
## F-statistic: 2.898 on 7 and 14 DF,  p-value: 0.04279
## 
## [1] "Cases start date: 2020-05-05"
## [1] "Visits start date: 2020-04-21"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.768e-04 -1.841e-04 -7.733e-05  1.036e-04  8.908e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -1.124e-04  2.256e-04  -0.498    0.623
## total_visits_per_capita  9.479e-05  6.504e-05   1.457    0.159
## 
## Residual standard error: 0.0002588 on 23 degrees of freedom
## Multiple R-squared:  0.08452,    Adjusted R-squared:  0.04472 
## F-statistic: 2.124 on 1 and 23 DF,  p-value: 0.1586
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.942e-04 -1.590e-04 -1.839e-05  9.463e-05  7.234e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -4.395e-04  1.683e-03  -0.261    0.797
## total_visits_per_capita         6.538e-05  1.252e-04   0.522    0.608
## percent_under_125000            2.439e-06  6.176e-06   0.395    0.698
## avg_household_size              2.626e-04  2.961e-04   0.887    0.388
## pop_density                     1.083e-02  1.217e-02   0.890    0.386
## `percent more than 1 occupant`  4.132e-06  1.342e-05   0.308    0.762
## `percent more than 1 unit`      4.623e-06  5.868e-06   0.788    0.442
## avg_median_age                 -1.950e-05  2.369e-05  -0.823    0.422
## 
## Residual standard error: 0.0002546 on 17 degrees of freedom
## Multiple R-squared:  0.3453, Adjusted R-squared:  0.07568 
## F-statistic: 1.281 on 7 and 17 DF,  p-value: 0.3169
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.768e-04 -1.841e-04 -7.733e-05  1.036e-04  8.908e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -1.124e-04  2.256e-04  -0.498    0.623
## total_visits_per_capita  9.479e-05  6.504e-05   1.457    0.159
## 
## Residual standard error: 0.0002588 on 23 degrees of freedom
## Multiple R-squared:  0.08452,    Adjusted R-squared:  0.04472 
## F-statistic: 2.124 on 1 and 23 DF,  p-value: 0.1586
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.942e-04 -1.590e-04 -1.839e-05  9.463e-05  7.234e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -4.395e-04  1.683e-03  -0.261    0.797
## total_visits_per_capita         6.538e-05  1.252e-04   0.522    0.608
## percent_under_125000            2.439e-06  6.176e-06   0.395    0.698
## avg_household_size              2.626e-04  2.961e-04   0.887    0.388
## pop_density                     1.083e-02  1.217e-02   0.890    0.386
## `percent more than 1 occupant`  4.132e-06  1.342e-05   0.308    0.762
## `percent more than 1 unit`      4.623e-06  5.868e-06   0.788    0.442
## avg_median_age                 -1.950e-05  2.369e-05  -0.823    0.422
## 
## Residual standard error: 0.0002546 on 17 degrees of freedom
## Multiple R-squared:  0.3453, Adjusted R-squared:  0.07568 
## F-statistic: 1.281 on 7 and 17 DF,  p-value: 0.3169
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11825 -0.06906 -0.01904  0.03104  0.20053 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -0.03113    0.07680  -0.405    0.689
## total_visits_per_capita  0.03638    0.02215   1.643    0.114
## 
## Residual standard error: 0.08813 on 23 degrees of freedom
## Multiple R-squared:  0.105,  Adjusted R-squared:  0.06608 
## F-statistic: 2.698 on 1 and 23 DF,  p-value: 0.1141
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09636 -0.06722 -0.00187  0.03577  0.15816 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.4634069  0.5250376   0.883   0.3898  
## total_visits_per_capita         0.0014609  0.0390421   0.037   0.9706  
## percent_under_125000            0.0020703  0.0019265   1.075   0.2976  
## avg_household_size              0.0460018  0.0923615   0.498   0.6248  
## pop_density                     1.5099166  3.7952486   0.398   0.6957  
## `percent more than 1 occupant`  0.0010878  0.0041872   0.260   0.7981  
## `percent more than 1 unit`      0.0004531  0.0018304   0.248   0.8075  
## avg_median_age                 -0.0164208  0.0073902  -2.222   0.0401 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07941 on 17 degrees of freedom
## Multiple R-squared:  0.4629, Adjusted R-squared:  0.2417 
## F-statistic: 2.093 on 7 and 17 DF,  p-value: 0.1012
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.648e-04 -1.968e-04 -5.409e-05  1.006e-04  8.828e-04 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             3.685e-05  3.647e-04   0.101    0.921
## total_visits_per_capita 5.552e-05  1.004e-04   0.553    0.586
## 
## Residual standard error: 0.000275 on 20 degrees of freedom
## Multiple R-squared:  0.01505,    Adjusted R-squared:  -0.03419 
## F-statistic: 0.3057 on 1 and 20 DF,  p-value: 0.5865
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.567e-04 -1.364e-04 -4.297e-05  1.000e-04  6.182e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     6.764e-04  1.981e-03   0.341    0.738
## total_visits_per_capita         1.754e-05  1.385e-04   0.127    0.901
## percent_under_125000            7.611e-08  6.086e-06   0.013    0.990
## avg_household_size              1.206e-04  3.249e-04   0.371    0.716
## pop_density                     2.635e-02  1.827e-02   1.442    0.171
## `percent more than 1 occupant`  3.168e-05  2.510e-05   1.262    0.228
## `percent more than 1 unit`      1.901e-07  6.829e-06   0.028    0.978
## avg_median_age                 -3.127e-05  2.827e-05  -1.106    0.287
## 
## Residual standard error: 0.0002413 on 14 degrees of freedom
## Multiple R-squared:  0.4694, Adjusted R-squared:  0.2041 
## F-statistic: 1.769 on 7 and 14 DF,  p-value: 0.1721
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11092 -0.07088 -0.01606  0.05445  0.19594 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.05774    0.12213   0.473    0.641
## total_visits_per_capita  0.01295    0.03363   0.385    0.704
## 
## Residual standard error: 0.09211 on 20 degrees of freedom
## Multiple R-squared:  0.00736,    Adjusted R-squared:  -0.04227 
## F-statistic: 0.1483 on 1 and 20 DF,  p-value: 0.7042
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.088113 -0.038366  0.000876  0.014501  0.125525 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.018501   0.588088   1.732   0.1053  
## total_visits_per_capita        -0.014207   0.041122  -0.345   0.7349  
## percent_under_125000            0.001043   0.001807   0.577   0.5729  
## avg_household_size             -0.027640   0.096443  -0.287   0.7786  
## pop_density                     5.873914   5.422792   1.083   0.2970  
## `percent more than 1 occupant`  0.013354   0.007451   1.792   0.0947 .
## `percent more than 1 unit`     -0.001600   0.002027  -0.789   0.4431  
## avg_median_age                 -0.022424   0.008391  -2.672   0.0182 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07162 on 14 degrees of freedom
## Multiple R-squared:  0.5798, Adjusted R-squared:  0.3697 
## F-statistic:  2.76 on 7 and 14 DF,  p-value: 0.05025
## 
## [1] "Cases start date: 2020-05-12"
## [1] "Visits start date: 2020-04-28"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.615e-04 -1.337e-04 -7.965e-05  4.174e-05  5.012e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -6.189e-05  1.735e-04  -0.357    0.725
## total_visits_per_capita  8.578e-05  5.114e-05   1.678    0.107
## 
## Residual standard error: 0.0002349 on 23 degrees of freedom
## Multiple R-squared:  0.109,  Adjusted R-squared:  0.07027 
## F-statistic: 2.814 on 1 and 23 DF,  p-value: 0.107
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.866e-04 -1.237e-04 -4.059e-05  6.818e-05  4.344e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -8.962e-04  1.407e-03  -0.637    0.533
## total_visits_per_capita         5.766e-05  1.036e-04   0.556    0.585
## percent_under_125000            6.099e-06  5.377e-06   1.134    0.272
## avg_household_size              1.704e-04  2.591e-04   0.657    0.520
## pop_density                     1.538e-02  9.945e-03   1.546    0.140
## `percent more than 1 occupant` -5.690e-08  1.173e-05  -0.005    0.996
## `percent more than 1 unit`      2.494e-06  4.958e-06   0.503    0.621
## avg_median_age                 -3.160e-06  2.047e-05  -0.154    0.879
## 
## Residual standard error: 0.0002148 on 17 degrees of freedom
## Multiple R-squared:  0.4492, Adjusted R-squared:  0.2224 
## F-statistic: 1.981 on 7 and 17 DF,  p-value: 0.1183
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.615e-04 -1.337e-04 -7.965e-05  4.174e-05  5.012e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -6.189e-05  1.735e-04  -0.357    0.725
## total_visits_per_capita  8.578e-05  5.114e-05   1.678    0.107
## 
## Residual standard error: 0.0002349 on 23 degrees of freedom
## Multiple R-squared:  0.109,  Adjusted R-squared:  0.07027 
## F-statistic: 2.814 on 1 and 23 DF,  p-value: 0.107
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.866e-04 -1.237e-04 -4.059e-05  6.818e-05  4.344e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -8.962e-04  1.407e-03  -0.637    0.533
## total_visits_per_capita         5.766e-05  1.036e-04   0.556    0.585
## percent_under_125000            6.099e-06  5.377e-06   1.134    0.272
## avg_household_size              1.704e-04  2.591e-04   0.657    0.520
## pop_density                     1.538e-02  9.945e-03   1.546    0.140
## `percent more than 1 occupant` -5.690e-08  1.173e-05  -0.005    0.996
## `percent more than 1 unit`      2.494e-06  4.958e-06   0.503    0.621
## avg_median_age                 -3.160e-06  2.047e-05  -0.154    0.879
## 
## Residual standard error: 0.0002148 on 17 degrees of freedom
## Multiple R-squared:  0.4492, Adjusted R-squared:  0.2224 
## F-statistic: 1.981 on 7 and 17 DF,  p-value: 0.1183
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.36834 -0.15675 -0.06918  0.02667  2.13471 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.43724    0.34831   1.255    0.222
## total_visits_per_capita -0.08044    0.10262  -0.784    0.441
## 
## Residual standard error: 0.4714 on 23 degrees of freedom
## Multiple R-squared:  0.02602,    Adjusted R-squared:  -0.01633 
## F-statistic: 0.6144 on 1 and 23 DF,  p-value: 0.4411
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.55204 -0.19537 -0.00273  0.07386  1.11480 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -1.8416629  2.5538519  -0.721  0.48063   
## total_visits_per_capita        -0.0283566  0.1881359  -0.151  0.88197   
## percent_under_125000           -0.0009192  0.0097621  -0.094  0.92608   
## avg_household_size              0.2043714  0.4704457   0.434  0.66945   
## pop_density                    64.1914649 18.0548882   3.555  0.00243 **
## `percent more than 1 occupant`  0.0027126  0.0212865   0.127  0.90009   
## `percent more than 1 unit`      0.0017069  0.0090011   0.190  0.85185   
## avg_median_age                  0.0246596  0.0371598   0.664  0.51584   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3899 on 17 degrees of freedom
## Multiple R-squared:  0.5073, Adjusted R-squared:  0.3045 
## F-statistic: 2.501 on 7 and 17 DF,  p-value: 0.05811
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.798e-04 -1.179e-04 -7.617e-05  4.202e-05  5.472e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -2.320e-04  2.567e-04  -0.903   0.3770  
## total_visits_per_capita  1.295e-04  7.196e-05   1.800   0.0869 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002272 on 20 degrees of freedom
## Multiple R-squared:  0.1394, Adjusted R-squared:  0.09641 
## F-statistic: 3.241 on 1 and 20 DF,  p-value: 0.08694
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.500e-04 -8.507e-05 -3.788e-05  4.861e-05  4.101e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -7.463e-06  1.851e-03  -0.004    0.997
## total_visits_per_capita         3.799e-05  1.250e-04   0.304    0.766
## percent_under_125000            4.925e-06  5.898e-06   0.835    0.418
## avg_household_size              4.337e-05  3.152e-04   0.138    0.893
## pop_density                     5.783e-03  1.670e-02   0.346    0.734
## `percent more than 1 occupant`  1.812e-05  2.369e-05   0.765    0.457
## `percent more than 1 unit`     -8.526e-08  6.432e-06  -0.013    0.990
## avg_median_age                 -1.101e-05  2.665e-05  -0.413    0.686
## 
## Residual standard error: 0.0002264 on 14 degrees of freedom
## Multiple R-squared:  0.4019, Adjusted R-squared:  0.1028 
## F-statistic: 1.344 on 7 and 14 DF,  p-value: 0.3014
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.088430 -0.035836 -0.003518  0.038091  0.086826 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -0.08115    0.06131  -1.324   0.2005  
## total_visits_per_capita  0.04862    0.01718   2.830   0.0104 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05425 on 20 degrees of freedom
## Multiple R-squared:  0.2859, Adjusted R-squared:  0.2502 
## F-statistic: 8.006 on 1 and 20 DF,  p-value: 0.01036
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.075996 -0.021359 -0.005603  0.033111  0.085405 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.1443514  0.4643570  -0.311   0.7605  
## total_visits_per_capita         0.0578783  0.0313458   1.846   0.0861 .
## percent_under_125000            0.0006009  0.0014794   0.406   0.6907  
## avg_household_size             -0.0339883  0.0790828  -0.430   0.6739  
## pop_density                     4.9598480  4.1904011   1.184   0.2563  
## `percent more than 1 occupant`  0.0006771  0.0059429   0.114   0.9109  
## `percent more than 1 unit`     -0.0006150  0.0016134  -0.381   0.7088  
## avg_median_age                  0.0019231  0.0066847   0.288   0.7778  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05679 on 14 degrees of freedom
## Multiple R-squared:  0.4522, Adjusted R-squared:  0.1782 
## F-statistic: 1.651 on 7 and 14 DF,  p-value: 0.2011
## 
## [1] "Cases start date: 2020-05-19"
## [1] "Visits start date: 2020-05-05"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.274e-04 -8.276e-05 -2.423e-05  5.395e-05  2.091e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.105e-04  9.369e-05  -1.180   0.2512  
## total_visits_per_capita  5.810e-05  2.791e-05   2.082   0.0498 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 9.615e-05 on 21 degrees of freedom
## Multiple R-squared:  0.1711, Adjusted R-squared:  0.1316 
## F-statistic: 4.334 on 1 and 21 DF,  p-value: 0.04978
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.869e-04 -4.605e-05 -1.271e-05  6.014e-05  1.083e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     1.574e-04  7.004e-04   0.225    0.825
## total_visits_per_capita         5.758e-05  5.461e-05   1.054    0.308
## percent_under_125000           -1.211e-07  2.042e-06  -0.059    0.953
## avg_household_size              1.711e-05  1.236e-04   0.138    0.892
## pop_density                    -2.251e-03  6.041e-03  -0.373    0.715
## `percent more than 1 occupant`  1.409e-05  8.733e-06   1.613    0.128
## `percent more than 1 unit`      6.573e-07  2.432e-06   0.270    0.791
## avg_median_age                 -1.051e-05  1.001e-05  -1.050    0.311
## 
## Residual standard error: 8.586e-05 on 15 degrees of freedom
## Multiple R-squared:  0.5278, Adjusted R-squared:  0.3074 
## F-statistic: 2.395 on 7 and 15 DF,  p-value: 0.07374
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.274e-04 -8.276e-05 -2.423e-05  5.395e-05  2.091e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.105e-04  9.369e-05  -1.180   0.2512  
## total_visits_per_capita  5.810e-05  2.791e-05   2.082   0.0498 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 9.615e-05 on 21 degrees of freedom
## Multiple R-squared:  0.1711, Adjusted R-squared:  0.1316 
## F-statistic: 4.334 on 1 and 21 DF,  p-value: 0.04978
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.869e-04 -4.605e-05 -1.271e-05  6.014e-05  1.083e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     1.574e-04  7.004e-04   0.225    0.825
## total_visits_per_capita         5.758e-05  5.461e-05   1.054    0.308
## percent_under_125000           -1.211e-07  2.042e-06  -0.059    0.953
## avg_household_size              1.711e-05  1.236e-04   0.138    0.892
## pop_density                    -2.251e-03  6.041e-03  -0.373    0.715
## `percent more than 1 occupant`  1.409e-05  8.733e-06   1.613    0.128
## `percent more than 1 unit`      6.573e-07  2.432e-06   0.270    0.791
## avg_median_age                 -1.051e-05  1.001e-05  -1.050    0.311
## 
## Residual standard error: 8.586e-05 on 15 degrees of freedom
## Multiple R-squared:  0.5278, Adjusted R-squared:  0.3074 
## F-statistic: 2.395 on 7 and 15 DF,  p-value: 0.07374
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042542 -0.019802 -0.009096  0.007868  0.134528 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -0.01817    0.03837  -0.473    0.641
## total_visits_per_capita  0.01483    0.01143   1.297    0.209
## 
## Residual standard error: 0.03938 on 21 degrees of freedom
## Multiple R-squared:  0.07417,    Adjusted R-squared:  0.03009 
## F-statistic: 1.682 on 1 and 21 DF,  p-value: 0.2087
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.043135 -0.019963 -0.002531  0.023350  0.062105 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.0079016  0.2741853   0.029   0.9774  
## total_visits_per_capita         0.0532616  0.0213762   2.492   0.0249 *
## percent_under_125000           -0.0013541  0.0007992  -1.694   0.1109  
## avg_household_size             -0.0246897  0.0483695  -0.510   0.6172  
## pop_density                     2.6243586  2.3647335   1.110   0.2846  
## `percent more than 1 occupant`  0.0065490  0.0034185   1.916   0.0747 .
## `percent more than 1 unit`      0.0001732  0.0009520   0.182   0.8581  
## avg_median_age                 -0.0023916  0.0039201  -0.610   0.5509  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03361 on 15 degrees of freedom
## Multiple R-squared:  0.5183, Adjusted R-squared:  0.2935 
## F-statistic: 2.306 on 7 and 15 DF,  p-value: 0.08264
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.274e-04 -8.276e-05 -2.423e-05  5.395e-05  2.091e-04 
## 
## Coefficients:
##                           Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             -1.105e-04  9.369e-05  -1.180   0.2512  
## total_visits_per_capita  5.810e-05  2.791e-05   2.082   0.0498 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 9.615e-05 on 21 degrees of freedom
## Multiple R-squared:  0.1711, Adjusted R-squared:  0.1316 
## F-statistic: 4.334 on 1 and 21 DF,  p-value: 0.04978
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.869e-04 -4.605e-05 -1.271e-05  6.014e-05  1.083e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     1.574e-04  7.004e-04   0.225    0.825
## total_visits_per_capita         5.758e-05  5.461e-05   1.054    0.308
## percent_under_125000           -1.211e-07  2.042e-06  -0.059    0.953
## avg_household_size              1.711e-05  1.236e-04   0.138    0.892
## pop_density                    -2.251e-03  6.041e-03  -0.373    0.715
## `percent more than 1 occupant`  1.409e-05  8.733e-06   1.613    0.128
## `percent more than 1 unit`      6.573e-07  2.432e-06   0.270    0.791
## avg_median_age                 -1.051e-05  1.001e-05  -1.050    0.311
## 
## Residual standard error: 8.586e-05 on 15 degrees of freedom
## Multiple R-squared:  0.5278, Adjusted R-squared:  0.3074 
## F-statistic: 2.395 on 7 and 15 DF,  p-value: 0.07374
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.042542 -0.019802 -0.009096  0.007868  0.134528 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)             -0.01817    0.03837  -0.473    0.641
## total_visits_per_capita  0.01483    0.01143   1.297    0.209
## 
## Residual standard error: 0.03938 on 21 degrees of freedom
## Multiple R-squared:  0.07417,    Adjusted R-squared:  0.03009 
## F-statistic: 1.682 on 1 and 21 DF,  p-value: 0.2087
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.043135 -0.019963 -0.002531  0.023350  0.062105 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.0079016  0.2741853   0.029   0.9774  
## total_visits_per_capita         0.0532616  0.0213762   2.492   0.0249 *
## percent_under_125000           -0.0013541  0.0007992  -1.694   0.1109  
## avg_household_size             -0.0246897  0.0483695  -0.510   0.6172  
## pop_density                     2.6243586  2.3647335   1.110   0.2846  
## `percent more than 1 occupant`  0.0065490  0.0034185   1.916   0.0747 .
## `percent more than 1 unit`      0.0001732  0.0009520   0.182   0.8581  
## avg_median_age                 -0.0023916  0.0039201  -0.610   0.5509  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.03361 on 15 degrees of freedom
## Multiple R-squared:  0.5183, Adjusted R-squared:  0.2935 
## F-statistic: 2.306 on 7 and 15 DF,  p-value: 0.08264
## 
## [1] "Cases start date: 2020-05-26"
## [1] "Visits start date: 2020-05-12"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
##   (2 observations deleted due to missingness)
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
##   (2 observations deleted due to missingness)
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## [1] "Cases start date: 2020-06-02"
## [1] "Visits start date: 2020-05-19"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 23 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 17 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 17 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 23 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 17 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 17 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 23 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 17 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 17 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## [1] "Cases start date: 2020-06-09"
## [1] "Visits start date: 2020-05-26"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 23 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 17 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 17 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 23 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 17 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 17 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 23 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 17 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 17 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0          0      NA       NA
## total_visits_per_capita        0          0      NA       NA
## 
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 1 and 21 DF,  p-value: NA
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
##      0      0      0      0      0 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0          0      NA       NA
## total_visits_per_capita               0          0      NA       NA
## percent_under_125000                  0          0      NA       NA
## avg_household_size                    0          0      NA       NA
## pop_density                           0          0      NA       NA
## `percent more than 1 occupant`        0          0      NA       NA
## `percent more than 1 unit`            0          0      NA       NA
## avg_median_age                        0          0      NA       NA
## 
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared:    NaN,  Adjusted R-squared:    NaN 
## F-statistic:   NaN on 7 and 15 DF,  p-value: NA
## 
## [1] "Cases start date: 2020-06-16"
## [1] "Visits start date: 2020-06-02"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0009620 -0.0005281 -0.0003028  0.0002334  0.0028778 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             0.0003004  0.0006073   0.495    0.626
## total_visits_per_capita 0.0002213  0.0002067   1.070    0.296
## 
## Residual standard error: 0.000974 on 23 degrees of freedom
## Multiple R-squared:  0.04745,    Adjusted R-squared:  0.006038 
## F-statistic: 1.146 on 1 and 23 DF,  p-value: 0.2955
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0012981 -0.0004177 -0.0001021  0.0002200  0.0016078 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.213e-03  5.301e-03   0.795   0.4377  
## total_visits_per_capita        -3.921e-04  4.026e-04  -0.974   0.3437  
## percent_under_125000            4.608e-05  1.708e-05   2.698   0.0152 *
## avg_household_size              6.736e-04  9.600e-04   0.702   0.4924  
## pop_density                     8.987e-04  3.728e-02   0.024   0.9810  
## `percent more than 1 occupant` -2.371e-05  3.907e-05  -0.607   0.5519  
## `percent more than 1 unit`     -4.326e-06  1.880e-05  -0.230   0.8208  
## avg_median_age                 -1.484e-04  7.267e-05  -2.042   0.0569 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0008065 on 17 degrees of freedom
## Multiple R-squared:  0.5173, Adjusted R-squared:  0.3185 
## F-statistic: 2.602 on 7 and 17 DF,  p-value: 0.0508
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0009620 -0.0005281 -0.0003028  0.0002334  0.0028778 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             0.0003004  0.0006073   0.495    0.626
## total_visits_per_capita 0.0002213  0.0002067   1.070    0.296
## 
## Residual standard error: 0.000974 on 23 degrees of freedom
## Multiple R-squared:  0.04745,    Adjusted R-squared:  0.006038 
## F-statistic: 1.146 on 1 and 23 DF,  p-value: 0.2955
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0012981 -0.0004177 -0.0001021  0.0002200  0.0016078 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.213e-03  5.301e-03   0.795   0.4377  
## total_visits_per_capita        -3.921e-04  4.026e-04  -0.974   0.3437  
## percent_under_125000            4.608e-05  1.708e-05   2.698   0.0152 *
## avg_household_size              6.736e-04  9.600e-04   0.702   0.4924  
## pop_density                     8.987e-04  3.728e-02   0.024   0.9810  
## `percent more than 1 occupant` -2.371e-05  3.907e-05  -0.607   0.5519  
## `percent more than 1 unit`     -4.326e-06  1.880e-05  -0.230   0.8208  
## avg_median_age                 -1.484e-04  7.267e-05  -2.042   0.0569 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0008065 on 17 degrees of freedom
## Multiple R-squared:  0.5173, Adjusted R-squared:  0.3185 
## F-statistic: 2.602 on 7 and 17 DF,  p-value: 0.0508
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21965 -0.12261 -0.04057  0.07272  0.34588 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)              0.16525    0.10290   1.606    0.122
## total_visits_per_capita  0.05287    0.03503   1.509    0.145
## 
## Residual standard error: 0.165 on 23 degrees of freedom
## Multiple R-squared:  0.09012,    Adjusted R-squared:  0.05056 
## F-statistic: 2.278 on 1 and 23 DF,  p-value: 0.1448
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.190188 -0.054594 -0.004917  0.057873  0.272642 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     1.853982   0.788991   2.350  0.03112 * 
## total_visits_per_capita        -0.027343   0.059920  -0.456  0.65393   
## percent_under_125000            0.007200   0.002542   2.832  0.01150 * 
## avg_household_size             -0.094633   0.142875  -0.662  0.51663   
## pop_density                    11.487260   5.547943   2.071  0.05394 . 
## `percent more than 1 occupant` -0.002565   0.005815  -0.441  0.66472   
## `percent more than 1 unit`     -0.004675   0.002799  -1.671  0.11313   
## avg_median_age                 -0.035178   0.010815  -3.253  0.00469 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.12 on 17 degrees of freedom
## Multiple R-squared:  0.6443, Adjusted R-squared:  0.4978 
## F-statistic: 4.399 on 7 and 17 DF,  p-value: 0.005935
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0008710 -0.0006442 -0.0003793  0.0001825  0.0029507 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             7.475e-04  7.912e-04   0.945    0.356
## total_visits_per_capita 8.438e-05  2.594e-04   0.325    0.748
## 
## Residual standard error: 0.0009994 on 21 degrees of freedom
## Multiple R-squared:  0.005013,   Adjusted R-squared:  -0.04237 
## F-statistic: 0.1058 on 1 and 21 DF,  p-value: 0.7482
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.463e-03 -3.564e-04  2.801e-05  2.817e-04  1.395e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     7.477e-03  6.656e-03   1.123   0.2790  
## total_visits_per_capita        -4.744e-04  4.869e-04  -0.974   0.3453  
## percent_under_125000            3.703e-05  1.872e-05   1.978   0.0666 .
## avg_household_size              1.226e-04  1.173e-03   0.105   0.9181  
## pop_density                    -2.737e-02  5.491e-02  -0.498   0.6254  
## `percent more than 1 occupant`  6.673e-05  8.389e-05   0.795   0.4387  
## `percent more than 1 unit`     -1.588e-05  2.298e-05  -0.691   0.5001  
## avg_median_age                 -1.666e-04  9.651e-05  -1.727   0.1048  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0008163 on 15 degrees of freedom
## Multiple R-squared:  0.5259, Adjusted R-squared:  0.3046 
## F-statistic: 2.377 on 7 and 15 DF,  p-value: 0.07547
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18530 -0.11694 -0.05980  0.09713  0.29586 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)   
## (Intercept)              0.354221   0.119196   2.972  0.00728 **
## total_visits_per_capita -0.004996   0.039083  -0.128  0.89950   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1506 on 21 degrees of freedom
## Multiple R-squared:  0.0007776,  Adjusted R-squared:  -0.0468 
## F-statistic: 0.01634 on 1 and 21 DF,  p-value: 0.8995
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.169348 -0.062050 -0.001605  0.040019  0.292237 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     2.493038   0.989902   2.518   0.0236 *
## total_visits_per_capita        -0.023949   0.072411  -0.331   0.7454  
## percent_under_125000            0.005923   0.002784   2.128   0.0504 .
## avg_household_size             -0.201873   0.174406  -1.157   0.2652  
## pop_density                     9.389791   8.166134   1.150   0.2682  
## `percent more than 1 occupant`  0.011411   0.012476   0.915   0.3749  
## `percent more than 1 unit`     -0.006852   0.003417  -2.005   0.0634 .
## avg_median_age                 -0.041333   0.014354  -2.880   0.0115 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1214 on 15 degrees of freedom
## Multiple R-squared:  0.536,  Adjusted R-squared:  0.3195 
## F-statistic: 2.476 on 7 and 15 DF,  p-value: 0.06661
## 
## [1] "Cases start date: 2020-06-23"
## [1] "Visits start date: 2020-06-09"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.648e-04 -2.525e-04 -1.663e-04  7.086e-05  1.047e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             2.294e-04  3.321e-04   0.691    0.497
## total_visits_per_capita 6.098e-05  1.038e-04   0.588    0.563
## 
## Residual standard error: 0.0004153 on 21 degrees of freedom
## Multiple R-squared:  0.01617,    Adjusted R-squared:  -0.03068 
## F-statistic: 0.3452 on 1 and 21 DF,  p-value: 0.5631
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.270e-04 -1.478e-04 -2.330e-06  1.356e-04  6.076e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.917e-04  2.937e-03   0.167   0.8693  
## total_visits_per_capita        -3.404e-04  2.114e-04  -1.610   0.1282  
## percent_under_125000            1.532e-05  8.406e-06   1.823   0.0884 .
## avg_household_size              5.507e-04  5.233e-04   1.052   0.3093  
## pop_density                    -2.756e-02  2.442e-02  -1.129   0.2767  
## `percent more than 1 occupant` -2.965e-06  3.847e-05  -0.077   0.9396  
## `percent more than 1 unit`      1.062e-06  1.007e-05   0.105   0.9175  
## avg_median_age                 -2.555e-05  4.371e-05  -0.585   0.5675  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003546 on 15 degrees of freedom
## Multiple R-squared:  0.4877, Adjusted R-squared:  0.2486 
## F-statistic:  2.04 on 7 and 15 DF,  p-value: 0.1168
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.648e-04 -2.525e-04 -1.663e-04  7.086e-05  1.047e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             2.294e-04  3.321e-04   0.691    0.497
## total_visits_per_capita 6.098e-05  1.038e-04   0.588    0.563
## 
## Residual standard error: 0.0004153 on 21 degrees of freedom
## Multiple R-squared:  0.01617,    Adjusted R-squared:  -0.03068 
## F-statistic: 0.3452 on 1 and 21 DF,  p-value: 0.5631
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.270e-04 -1.478e-04 -2.330e-06  1.356e-04  6.076e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.917e-04  2.937e-03   0.167   0.8693  
## total_visits_per_capita        -3.404e-04  2.114e-04  -1.610   0.1282  
## percent_under_125000            1.532e-05  8.406e-06   1.823   0.0884 .
## avg_household_size              5.507e-04  5.233e-04   1.052   0.3093  
## pop_density                    -2.756e-02  2.442e-02  -1.129   0.2767  
## `percent more than 1 occupant` -2.965e-06  3.847e-05  -0.077   0.9396  
## `percent more than 1 unit`      1.062e-06  1.007e-05   0.105   0.9175  
## avg_median_age                 -2.555e-05  4.371e-05  -0.585   0.5675  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003546 on 15 degrees of freedom
## Multiple R-squared:  0.4877, Adjusted R-squared:  0.2486 
## F-statistic:  2.04 on 7 and 15 DF,  p-value: 0.1168
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.088088 -0.032121 -0.004104  0.020494  0.131063 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             0.090042   0.045705   1.970   0.0622 .
## total_visits_per_capita 0.009217   0.014283   0.645   0.5257  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05716 on 21 degrees of freedom
## Multiple R-squared:  0.01944,    Adjusted R-squared:  -0.02725 
## F-statistic: 0.4164 on 1 and 21 DF,  p-value: 0.5257
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.107721 -0.044921 -0.002889  0.026476  0.119747 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.1009771  0.5210098   0.194    0.849
## total_visits_per_capita        -0.0104784  0.0374958  -0.279    0.784
## percent_under_125000            0.0005188  0.0014910   0.348    0.733
## avg_household_size              0.0599805  0.0928231   0.646    0.528
## pop_density                     2.1120236  4.3304813   0.488    0.633
## `percent more than 1 occupant` -0.0057179  0.0068232  -0.838    0.415
## `percent more than 1 unit`      0.0002980  0.0017869   0.167    0.870
## avg_median_age                 -0.0032252  0.0077518  -0.416    0.683
## 
## Residual standard error: 0.0629 on 15 degrees of freedom
## Multiple R-squared:  0.1519, Adjusted R-squared:  -0.2439 
## F-statistic: 0.3838 on 7 and 15 DF,  p-value: 0.8977
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.648e-04 -2.525e-04 -1.663e-04  7.086e-05  1.047e-03 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)
## (Intercept)             2.294e-04  3.321e-04   0.691    0.497
## total_visits_per_capita 6.098e-05  1.038e-04   0.588    0.563
## 
## Residual standard error: 0.0004153 on 21 degrees of freedom
## Multiple R-squared:  0.01617,    Adjusted R-squared:  -0.03068 
## F-statistic: 0.3452 on 1 and 21 DF,  p-value: 0.5631
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.270e-04 -1.478e-04 -2.330e-06  1.356e-04  6.076e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.917e-04  2.937e-03   0.167   0.8693  
## total_visits_per_capita        -3.404e-04  2.114e-04  -1.610   0.1282  
## percent_under_125000            1.532e-05  8.406e-06   1.823   0.0884 .
## avg_household_size              5.507e-04  5.233e-04   1.052   0.3093  
## pop_density                    -2.756e-02  2.442e-02  -1.129   0.2767  
## `percent more than 1 occupant` -2.965e-06  3.847e-05  -0.077   0.9396  
## `percent more than 1 unit`      1.062e-06  1.007e-05   0.105   0.9175  
## avg_median_age                 -2.555e-05  4.371e-05  -0.585   0.5675  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003546 on 15 degrees of freedom
## Multiple R-squared:  0.4877, Adjusted R-squared:  0.2486 
## F-statistic:  2.04 on 7 and 15 DF,  p-value: 0.1168
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.088088 -0.032121 -0.004104  0.020494  0.131063 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)             0.090042   0.045705   1.970   0.0622 .
## total_visits_per_capita 0.009217   0.014283   0.645   0.5257  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05716 on 21 degrees of freedom
## Multiple R-squared:  0.01944,    Adjusted R-squared:  -0.02725 
## F-statistic: 0.4164 on 1 and 21 DF,  p-value: 0.5257
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.107721 -0.044921 -0.002889  0.026476  0.119747 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.1009771  0.5210098   0.194    0.849
## total_visits_per_capita        -0.0104784  0.0374958  -0.279    0.784
## percent_under_125000            0.0005188  0.0014910   0.348    0.733
## avg_household_size              0.0599805  0.0928231   0.646    0.528
## pop_density                     2.1120236  4.3304813   0.488    0.633
## `percent more than 1 occupant` -0.0057179  0.0068232  -0.838    0.415
## `percent more than 1 unit`      0.0002980  0.0017869   0.167    0.870
## avg_median_age                 -0.0032252  0.0077518  -0.416    0.683
## 
## Residual standard error: 0.0629 on 15 degrees of freedom
## Multiple R-squared:  0.1519, Adjusted R-squared:  -0.2439 
## F-statistic: 0.3838 on 7 and 15 DF,  p-value: 0.8977
model_results_1_sf <- model_results_1_sf %>%
  mutate(visits_start_date = as.Date(cases_start_date) - visits_lag)

Plot of model results over time

model_results_1_sf %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared over time, 1 week time interval, 14 day lag, SF")
model_results_1_sf %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 1 week time interval, 14 day lag, SF")
# split the log and not log for coefficient since log coefficient is much larger
model_results_1_sf %>% filter(model_type != "change in log of cases, starting above 0" & model_type != "change in log of cases, starting above 10") %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 1 week time interval, 14 day lag, only non log, SF")
model_results_1_sf %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "P value of coefficient over time, 1 week time interval, 14 day lag, SF")

Hmm…what is going on with the missing data? Plot the SF case data to check.

sf_cases_zip %>% plot_ly() %>%
  add_trace(x = ~date, y = ~cases_by_pop, color = ~zipcode, mode = "lines", type = "scatter")

Okay it looks like LA Times is just missing a bunch of SF data, or something weird was going on. So this method likely won’t be valid for SF data, unfortunately.

Weighting: Ability of one week of weighted visits data to predict the change in cases over one week, two weeks later

Repeating the same analysis from the previous part but with weighted visits data.

Linear models and demographic correlations

# same function as before, but with plots removed, and including analysis of weighted visits
testVisitsPredictionWeighted <- function(visits_zip, cases_zip, cases_start_date, time_window_length, visits_lag, dem_data, county_name) {

  cases_end_date_inc <- cases_start_date + time_window_length
  visits_start_date <- cases_start_date - visits_lag
  visits_end_date_exc <- visits_start_date + time_window_length
  
  print(paste0("Cases start date: ", cases_start_date))
  print(paste0("Visits start date: ", visits_start_date))
  
  init_cases <- cases_zip %>% 
  filter(date == cases_start_date) %>%
  dplyr::select(zipcode, cases_by_pop, cases) %>%
  rename(init_cases_by_pop = cases_by_pop, init_cases = cases) %>%
  mutate(log_init_cases_by_pop = log(init_cases_by_pop))

  # max cases (end date)
  final_cases <- cases_zip %>% 
  filter(date == cases_end_date_inc) %>%
  dplyr::select(zipcode, cases_by_pop, total_pop_zip, cases) %>%
  rename(fin_cases_by_pop = cases_by_pop, fin_cases = cases) %>%
  mutate(log_fin_cases_by_pop = log(fin_cases_by_pop))

  # summarize visits add current and initial cases
  visits_cases_change <- visits_zip %>%
  filter(date >= visits_start_date & date < visits_end_date_exc) %>%
  filter(!is.na(zipcode) & !is.na(total_visits)) %>%
  group_by(zipcode) %>%
  summarize(total_visits_per_capita = sum(visits_per_capita),
            total_weighted_visits_per_capita = sum(weighted_visits_per_capita),
            total_weighted_visit_hours_per_capita = sum(weighted_visit_hours_per_capita),
            total_weighted_visit_hours_per_capita_v2 = sum(weighted_visit_hours_per_capita_v2),
            total_visit_hours_per_capita = sum(visit_hours_per_capita),
            total_visits_per_area_per_capita = sum(visits_per_area_per_capita),
            total_visits = sum(total_visits)) %>%
  left_join(final_cases) %>%
  left_join(init_cases) %>%
  filter(!is.na(fin_cases_by_pop)) %>%
  mutate(change_log_cases_by_pop = log_fin_cases_by_pop - log_init_cases_by_pop,
         change_cases_by_pop = fin_cases_by_pop - init_cases_by_pop)
  
  visits_cases_change_start_non0 <- visits_cases_change %>% filter(init_cases_by_pop > 0)

# get linear model values
visits_cases_change_model <- lm(change_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change)
visits_cases_change_model_non0 <- lm(change_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change_start_non0)
visits_cases_change_model_log <- lm(change_log_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change_start_non0)
visit_hrs_cases_change_model <- lm(change_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change)
visit_hrs_cases_change_model_non0 <- lm(change_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change_start_non0)
visit_hrs_cases_change_model_log <- lm(change_log_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change_start_non0)
wt_visit_hrs_cases_change_model <- lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change)
wt_visit_hrs_cases_change_model_non0 <- lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change_start_non0)
wt_visit_hrs_cases_change_model_log <- lm(change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change_start_non0)

  print("Weighted visits (by area and other visitors):")
  print(summary(visits_cases_change_model))
  print("Control for demographic variables:")
  visits_cases_change_dem <- left_join(visits_cases_change, dem_data)
  print(summary(lm(change_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem)))

  print(summary(visits_cases_change_model_non0))
  print("Control for demographic variables:")
  visits_cases_change_non0_dem <- left_join(visits_cases_change_start_non0, dem_data)
  print(summary(lm(change_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
  
  print(summary(visits_cases_change_model_log))
  print("Control for demographic variables:")
  print(summary(lm(change_log_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
  
  print("Visit hours:")
  print(summary(visit_hrs_cases_change_model))
  print("Control for demographic variables:")
  print(summary(lm(change_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem)))

  print(summary(visit_hrs_cases_change_model_non0))
  print("Control for demographic variables:")
  print(summary(lm(change_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
  
  print(summary(visit_hrs_cases_change_model_log))
  print("Control for demographic variables:")
  print(summary(lm(change_log_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
  
  print("Weighted visit hours:")
  print(summary(wt_visit_hrs_cases_change_model))
  print("Control for demographic variables:")
  print(summary(lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem)))

  print(summary(wt_visit_hrs_cases_change_model_non0))
  print("Control for demographic variables:")
  print(summary(lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
  
  print(summary(wt_visit_hrs_cases_change_model_log))
  print("Control for demographic variables:")
  print(summary(lm(change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
  
  # try excluding values that started below 10 cases
  visits_cases_change_exc <- visits_cases_change %>% filter(init_cases >= 10)
  visits_cases_change_model_exc <- NA
  visits_cases_change_model_exc_log <- NA
  visit_hrs_cases_change_model_exc <- NA
  visit_hrs_cases_change_model_exc_log <- NA
  wt_visit_hrs_cases_change_model_exc <- NA
  wt_visit_hrs_cases_change_model_exc_log <- NA  
  
  if (nrow(visits_cases_change_exc) > 0) {
    visits_cases_change_model_exc <- lm(change_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change_exc)
    visits_cases_change_model_exc_log <- lm(change_log_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change_exc)
    visit_hrs_cases_change_model_exc <- lm(change_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change_exc)
    visit_hrs_cases_change_model_exc_log <- lm(change_log_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change_exc)
    wt_visit_hrs_cases_change_model_exc <- lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change_exc)
   wt_visit_hrs_cases_change_model_exc_log <- lm(change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change_exc)
        
  print("Weighted visits:")
  print(summary(visits_cases_change_model_exc))
  print("Control for demographic variables:")
  visits_cases_change_dem_exc <- left_join(visits_cases_change_exc, dem_data)
  print(summary(lm(change_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
  
  print(summary(visits_cases_change_model_exc_log))
  print("Control for demographic variables:")
  print(summary(lm(change_log_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
  
    print("Visit hours:")
  print(summary(visit_hrs_cases_change_model_exc))
  print("Control for demographic variables:")
  print(summary(lm(change_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
  
  print(summary(visit_hrs_cases_change_model_exc_log))
  print("Control for demographic variables:")
  print(summary(lm(change_log_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
  
  print("Weighted visit hours:")
   print(summary(wt_visit_hrs_cases_change_model_exc))
  print("Control for demographic variables:")
  print(summary(lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
  
  print(summary(wt_visit_hrs_cases_change_model_exc_log))
  print("Control for demographic variables:")
  print(summary(lm(change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
  }

  return_vals <- data.frame(model_type = character(), weight_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)
  
  cases_change <- data.frame(rbind(c("change in cases", "weighted visits", summary(visits_cases_change_model)$coefficients[2,1], summary(visits_cases_change_model)$coefficients[2,4], summary(visits_cases_change_model)$r.squared, as.character(cases_start_date)), c("change in cases", "visit hours", summary(visit_hrs_cases_change_model)$coefficients[2,1], summary(visit_hrs_cases_change_model)$coefficients[2,4], summary(visit_hrs_cases_change_model)$r.squared, as.character(cases_start_date)), c("change in cases", "weighted visit hours", summary(wt_visit_hrs_cases_change_model)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
  colnames(cases_change) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
  
    cases_change_no0 <- data.frame(rbind(c("change in cases, starting above 0", "weighted visits", summary(visits_cases_change_model_non0)$coefficients[2,1], summary(visits_cases_change_model_non0)$coefficients[2,4], summary(visits_cases_change_model_non0)$r.squared, as.character(cases_start_date)), c("change in cases, starting above 0", "visit hours", summary(visit_hrs_cases_change_model_non0)$coefficients[2,1], summary(visit_hrs_cases_change_model_non0)$coefficients[2,4], summary(visit_hrs_cases_change_model_non0)$r.squared, as.character(cases_start_date)), c("change in cases, starting above 0", "weighted visit hours", summary(wt_visit_hrs_cases_change_model_non0)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model_non0)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model_non0)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
  colnames(cases_change_no0) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
  
   cases_change_log <- data.frame(rbind(c("change in log of cases, starting above 0", "weighted visits", summary(visits_cases_change_model_log)$coefficients[2,1], summary(visits_cases_change_model_log)$coefficients[2,4], summary(visits_cases_change_model_log)$r.squared, as.character(cases_start_date)), c("change in log of cases, starting above 0", "visit hours", summary(visit_hrs_cases_change_model_log)$coefficients[2,1], summary(visit_hrs_cases_change_model_log)$coefficients[2,4], summary(visit_hrs_cases_change_model_log)$r.squared, as.character(cases_start_date)), c("change in log of cases, starting above 0", "weighted visit hours", summary(wt_visit_hrs_cases_change_model_log)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model_log)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model_log)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
  colnames(cases_change_log) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
  
  return_vals <- rbind(return_vals, cases_change, cases_change_no0, cases_change_log)
  
  # include the later two if there was more than one point in the model
  if (nrow(visits_cases_change_exc) > 1) {
      cases_change_10 <- data.frame(rbind(c("change in cases, starting above 10", "weighted visits", summary(visits_cases_change_model_exc)$coefficients[2,1], summary(visits_cases_change_model_exc)$coefficients[2,4], summary(visits_cases_change_model_exc)$r.squared, as.character(cases_start_date)), c("change in cases, starting above 10", "visit hours", summary(visit_hrs_cases_change_model_exc)$coefficients[2,1], summary(visit_hrs_cases_change_model_exc)$coefficients[2,4], summary(visit_hrs_cases_change_model_exc)$r.squared, as.character(cases_start_date)), c("change in cases, starting above 10", "weighted visit hours", summary(wt_visit_hrs_cases_change_model_exc)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model_exc)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model_exc)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
  colnames(cases_change_10) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
    
  cases_change_10_log <- data.frame(rbind(c("change in log of cases, starting above 10", "weighted visits", summary(visits_cases_change_model_exc_log)$coefficients[2,1], summary(visits_cases_change_model_exc_log)$coefficients[2,4], summary(visits_cases_change_model_exc_log)$r.squared, as.character(cases_start_date)), c("change in log of cases, starting above 10", "visit hours", summary(visit_hrs_cases_change_model_exc_log)$coefficients[2,1], summary(visit_hrs_cases_change_model_exc_log)$coefficients[2,4], summary(visit_hrs_cases_change_model_exc_log)$r.squared, as.character(cases_start_date)), c("change in log of cases, starting above 10", "weighted visit hours", summary(wt_visit_hrs_cases_change_model_exc_log)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model_exc_log)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model_exc_log)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
  colnames(cases_change_10_log) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")

  return_vals <- rbind(return_vals, cases_change_10, cases_change_10_log)
  }
  
  return(return_vals)
}

cases_start_date <- as.Date("2020-03-23") # first cases start date to use
visits_lag <- 14 # in days
time_window_length <- 7 # in days

# data frame to store results
model_results_wt <- data.frame(model_type = character(), weight_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)

while(cases_start_date + time_window_length <= max(ac_cases_zip$date)) {
  model_results_curr <- testVisitsPredictionWeighted(ac_visits_zip, ac_cases_zip, cases_start_date, time_window_length, visits_lag, ac_dem_data, "Alameda")

  model_results_wt <- rbind(model_results_wt, model_results_curr)

  cases_start_date <- cases_start_date + time_window_length # run again with new start date
}
## [1] "Cases start date: 2020-03-23"
## [1] "Visits start date: 2020-03-09"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.005e-04 -7.154e-05 -5.761e-05  5.749e-05  2.458e-04 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      1.227e-05  5.444e-05   0.225    0.823
## total_weighted_visits_per_capita 1.297e-03  1.135e-03   1.143    0.259
## 
## Residual standard error: 0.000106 on 44 degrees of freedom
## Multiple R-squared:  0.02883,    Adjusted R-squared:  0.006763 
## F-statistic: 1.306 on 1 and 44 DF,  p-value: 0.2592
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.101e-04 -7.584e-05 -1.958e-05  3.074e-05  2.773e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -2.379e-04  5.633e-04  -0.422    0.675
## total_weighted_visits_per_capita  2.317e-03  1.518e-03   1.527    0.135
## percent_under_125000              5.481e-07  1.894e-06   0.289    0.774
## avg_household_size                1.265e-05  1.191e-04   0.106    0.916
## pop_density                      -1.378e-02  1.060e-02  -1.300    0.201
## `percent more than 1 occupant`    6.363e-06  9.167e-06   0.694    0.492
## `percent more than 1 unit`        8.802e-07  2.202e-06   0.400    0.692
## avg_median_age                    2.398e-06  6.175e-06   0.388    0.700
## 
## Residual standard error: 0.0001057 on 38 degrees of freedom
## Multiple R-squared:  0.1657, Adjusted R-squared:  0.01205 
## F-statistic: 1.078 on 7 and 38 DF,  p-value: 0.396
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -8.210e-05 -6.513e-05 -5.378e-05  5.681e-05  2.517e-04 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      2.187e-05  6.077e-05   0.360    0.721
## total_weighted_visits_per_capita 8.856e-04  1.267e-03   0.699    0.489
## 
## Residual standard error: 0.0001026 on 38 degrees of freedom
## Multiple R-squared:  0.01269,    Adjusted R-squared:  -0.01329 
## F-statistic: 0.4884 on 1 and 38 DF,  p-value: 0.4889
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.112e-04 -6.654e-05 -4.073e-06  3.347e-05  1.965e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -4.693e-04  5.382e-04  -0.872    0.390
## total_weighted_visits_per_capita  2.438e-03  1.556e-03   1.567    0.127
## percent_under_125000              7.338e-07  1.822e-06   0.403    0.690
## avg_household_size                2.708e-05  1.127e-04   0.240    0.812
## pop_density                      -1.623e-02  1.150e-02  -1.411    0.168
## `percent more than 1 occupant`    1.002e-05  9.661e-06   1.037    0.308
## `percent more than 1 unit`        1.350e-06  2.111e-06   0.640    0.527
## avg_median_age                    5.729e-06  6.146e-06   0.932    0.358
## 
## Residual standard error: 9.809e-05 on 32 degrees of freedom
## Multiple R-squared:  0.2396, Adjusted R-squared:  0.07329 
## F-statistic: 1.441 on 7 and 32 DF,  p-value: 0.2239
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.3919 -0.3364 -0.2993  0.3521  1.4877 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                        0.1950     0.3114   0.626    0.535
## total_weighted_visits_per_capita   2.8954     6.4933   0.446    0.658
## 
## Residual standard error: 0.5255 on 38 degrees of freedom
## Multiple R-squared:  0.005205,   Adjusted R-squared:  -0.02097 
## F-statistic: 0.1988 on 1 and 38 DF,  p-value: 0.6582
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.65103 -0.31479 -0.00249  0.28352  1.05000 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       -2.589722   2.641463  -0.980    0.334
## total_weighted_visits_per_capita  11.116627   7.635558   1.456    0.155
## percent_under_125000               0.001218   0.008941   0.136    0.893
## avg_household_size                 0.218683   0.553268   0.395    0.695
## pop_density                      -70.209649  56.449657  -1.244    0.223
## `percent more than 1 occupant`     0.061474   0.047417   1.296    0.204
## `percent more than 1 unit`         0.006981   0.010359   0.674    0.505
## avg_median_age                     0.031484   0.030164   1.044    0.304
## 
## Residual standard error: 0.4814 on 32 degrees of freedom
## Multiple R-squared:  0.297,  Adjusted R-squared:  0.1433 
## F-statistic: 1.932 on 7 and 32 DF,  p-value: 0.09685
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.063e-04 -7.214e-05 -5.202e-05  6.411e-05  2.435e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -3.908e-05  9.739e-05  -0.401    0.690
## total_visit_hours_per_capita  1.680e-05  1.456e-05   1.154    0.255
## 
## Residual standard error: 0.0001059 on 44 degrees of freedom
## Multiple R-squared:  0.0294, Adjusted R-squared:  0.007338 
## F-statistic: 1.333 on 1 and 44 DF,  p-value: 0.2546
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.145e-04 -7.490e-05 -2.311e-05  2.787e-05  2.752e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -2.683e-04  5.787e-04  -0.464    0.646
## total_visit_hours_per_capita    1.569e-05  2.096e-05   0.748    0.459
## percent_under_125000            1.377e-06  2.029e-06   0.679    0.502
## avg_household_size              1.246e-05  1.274e-04   0.098    0.923
## pop_density                    -9.597e-03  1.039e-02  -0.923    0.362
## `percent more than 1 occupant`  3.323e-06  9.088e-06   0.366    0.717
## `percent more than 1 unit`      1.110e-07  2.225e-06   0.050    0.960
## avg_median_age                  2.943e-06  6.302e-06   0.467    0.643
## 
## Residual standard error: 0.0001081 on 38 degrees of freedom
## Multiple R-squared:  0.1274, Adjusted R-squared:  -0.03335 
## F-statistic: 0.7925 on 7 and 38 DF,  p-value: 0.5981
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.011e-04 -6.287e-05 -4.305e-05  4.307e-05  2.461e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -7.022e-05  1.103e-04  -0.636    0.528
## total_visit_hours_per_capita  1.980e-05  1.625e-05   1.218    0.231
## 
## Residual standard error: 0.0001013 on 38 degrees of freedom
## Multiple R-squared:  0.0376, Adjusted R-squared:  0.01228 
## F-statistic: 1.485 on 1 and 38 DF,  p-value: 0.2306
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.311e-04 -6.398e-05 -2.143e-05  3.844e-05  2.489e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -5.018e-04  5.530e-04  -0.908    0.371
## total_visit_hours_per_capita    2.430e-05  2.124e-05   1.144    0.261
## percent_under_125000            1.782e-06  1.946e-06   0.916    0.367
## avg_household_size              5.948e-06  1.204e-04   0.049    0.961
## pop_density                    -1.108e-02  1.118e-02  -0.992    0.329
## `percent more than 1 occupant`  7.491e-06  9.529e-06   0.786    0.438
## `percent more than 1 unit`      3.460e-07  2.116e-06   0.164    0.871
## avg_median_age                  6.165e-06  6.269e-06   0.983    0.333
## 
## Residual standard error: 9.976e-05 on 32 degrees of freedom
## Multiple R-squared:  0.2134, Adjusted R-squared:  0.04136 
## F-statistic:  1.24 on 7 and 32 DF,  p-value: 0.3105
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.5567 -0.3292 -0.2111  0.3073  1.4744 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -0.46347    0.55918  -0.829    0.412
## total_visit_hours_per_capita  0.11791    0.08235   1.432    0.160
## 
## Residual standard error: 0.5132 on 38 degrees of freedom
## Multiple R-squared:  0.0512, Adjusted R-squared:  0.02623 
## F-statistic:  2.05 on 1 and 38 DF,  p-value: 0.1603
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.77683 -0.32206 -0.07357  0.26728  0.99111 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     -2.815002   2.690734  -1.046    0.303
## total_visit_hours_per_capita     0.128742   0.103353   1.246    0.222
## percent_under_125000             0.006531   0.009468   0.690    0.495
## avg_household_size               0.088588   0.585654   0.151    0.881
## pop_density                    -46.899025  54.392703  -0.862    0.395
## `percent more than 1 occupant`   0.051648   0.046368   1.114    0.274
## `percent more than 1 unit`       0.002175   0.010296   0.211    0.834
## avg_median_age                   0.033881   0.030506   1.111    0.275
## 
## Residual standard error: 0.4855 on 32 degrees of freedom
## Multiple R-squared:  0.2851, Adjusted R-squared:  0.1288 
## F-statistic: 1.823 on 7 and 32 DF,  p-value: 0.1168
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.002e-04 -7.045e-05 -5.894e-05  5.202e-05  2.501e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           2.075e-05  4.411e-05   0.470    0.640
## total_weighted_visit_hours_per_capita 1.241e-03  1.002e-03   1.239    0.222
## 
## Residual standard error: 0.0001057 on 44 degrees of freedom
## Multiple R-squared:  0.03372,    Adjusted R-squared:  0.01176 
## F-statistic: 1.535 on 1 and 44 DF,  p-value: 0.2219
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.276e-04 -6.846e-05 -3.050e-05  2.680e-05  2.802e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -1.852e-04  5.585e-04  -0.332   0.7419  
## total_weighted_visit_hours_per_capita  2.182e-03  1.239e-03   1.760   0.0864 .
## percent_under_125000                   6.182e-07  1.870e-06   0.331   0.7428  
## avg_household_size                     3.817e-06  1.184e-04   0.032   0.9745  
## pop_density                           -1.361e-02  1.037e-02  -1.312   0.1972  
## `percent more than 1 occupant`         7.190e-06  9.116e-06   0.789   0.4352  
## `percent more than 1 unit`             5.542e-07  2.151e-06   0.258   0.7981  
## avg_median_age                         2.163e-06  6.123e-06   0.353   0.7258  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001047 on 38 degrees of freedom
## Multiple R-squared:  0.1813, Adjusted R-squared:  0.0305 
## F-statistic: 1.202 on 7 and 38 DF,  p-value: 0.3252
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.706e-05 -6.331e-05 -5.687e-05  6.058e-05  2.517e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           3.711e-05  5.161e-05   0.719    0.476
## total_weighted_visit_hours_per_capita 6.238e-04  1.190e-03   0.524    0.603
## 
## Residual standard error: 0.0001029 on 38 degrees of freedom
## Multiple R-squared:  0.007182,   Adjusted R-squared:  -0.01894 
## F-statistic: 0.2749 on 1 and 38 DF,  p-value: 0.6031
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.293e-04 -5.785e-05 -1.634e-05  2.879e-05  1.971e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -4.291e-04  5.334e-04  -0.804    0.427
## total_weighted_visit_hours_per_capita  2.362e-03  1.395e-03   1.693    0.100
## percent_under_125000                   7.679e-07  1.808e-06   0.425    0.674
## avg_household_size                     1.826e-05  1.127e-04   0.162    0.872
## pop_density                           -1.561e-02  1.127e-02  -1.385    0.176
## `percent more than 1 occupant`         1.154e-05  9.845e-06   1.172    0.250
## `percent more than 1 unit`             9.252e-07  2.058e-06   0.450    0.656
## avg_median_age                         5.779e-06  6.110e-06   0.946    0.351
## 
## Residual standard error: 9.751e-05 on 32 degrees of freedom
## Multiple R-squared:  0.2486, Adjusted R-squared:  0.08418 
## F-statistic: 1.512 on 7 and 32 DF,  p-value: 0.1986
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.3625 -0.3300 -0.3147  0.3524  1.4808 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)
## (Intercept)                             0.2680     0.2642   1.014    0.317
## total_weighted_visit_hours_per_capita   1.4766     6.0901   0.242    0.810
## 
## Residual standard error: 0.5265 on 38 degrees of freedom
## Multiple R-squared:  0.001545,   Adjusted R-squared:  -0.02473 
## F-statistic: 0.05879 on 1 and 38 DF,  p-value: 0.8097
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.70619 -0.28660 -0.06085  0.27004  1.04832 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            -2.413383   2.609803  -0.925    0.362
## total_weighted_visit_hours_per_capita  11.304460   6.824762   1.656    0.107
## percent_under_125000                    0.001306   0.008843   0.148    0.883
## avg_household_size                      0.170902   0.551451   0.310    0.759
## pop_density                           -68.458018  55.147723  -1.241    0.223
## `percent more than 1 occupant`          0.069850   0.048166   1.450    0.157
## `percent more than 1 unit`              0.005105   0.010066   0.507    0.615
## avg_median_age                          0.031749   0.029893   1.062    0.296
## 
## Residual standard error: 0.4771 on 32 degrees of freedom
## Multiple R-squared:  0.3097, Adjusted R-squared:  0.1587 
## F-statistic: 2.051 on 7 and 32 DF,  p-value: 0.0788
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.0002004         NA      NA       NA
## total_weighted_visits_per_capita        NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.0002004         NA      NA       NA
## total_weighted_visits_per_capita        NA         NA      NA       NA
## percent_under_125000                    NA         NA      NA       NA
## avg_household_size                      NA         NA      NA       NA
## pop_density                             NA         NA      NA       NA
## `percent more than 1 occupant`          NA         NA      NA       NA
## `percent more than 1 unit`              NA         NA      NA       NA
## avg_median_age                          NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                        0.5878         NA      NA       NA
## total_weighted_visits_per_capita       NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                        0.5878         NA      NA       NA
## total_weighted_visits_per_capita       NA         NA      NA       NA
## percent_under_125000                   NA         NA      NA       NA
## avg_household_size                     NA         NA      NA       NA
## pop_density                            NA         NA      NA       NA
## `percent more than 1 occupant`         NA         NA      NA       NA
## `percent more than 1 unit`             NA         NA      NA       NA
## avg_median_age                         NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  0.0002004         NA      NA       NA
## total_visit_hours_per_capita        NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0.0002004         NA      NA       NA
## total_visit_hours_per_capita          NA         NA      NA       NA
## percent_under_125000                  NA         NA      NA       NA
## avg_household_size                    NA         NA      NA       NA
## pop_density                           NA         NA      NA       NA
## `percent more than 1 occupant`        NA         NA      NA       NA
## `percent more than 1 unit`            NA         NA      NA       NA
## avg_median_age                        NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    0.5878         NA      NA       NA
## total_visit_hours_per_capita       NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.5878         NA      NA       NA
## total_visit_hours_per_capita         NA         NA      NA       NA
## percent_under_125000                 NA         NA      NA       NA
## avg_household_size                   NA         NA      NA       NA
## pop_density                          NA         NA      NA       NA
## `percent more than 1 occupant`       NA         NA      NA       NA
## `percent more than 1 unit`           NA         NA      NA       NA
## avg_median_age                       NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0.0002004         NA      NA       NA
## total_weighted_visit_hours_per_capita        NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0.0002004         NA      NA       NA
## total_weighted_visit_hours_per_capita        NA         NA      NA       NA
## percent_under_125000                         NA         NA      NA       NA
## avg_household_size                           NA         NA      NA       NA
## pop_density                                  NA         NA      NA       NA
## `percent more than 1 occupant`               NA         NA      NA       NA
## `percent more than 1 unit`                   NA         NA      NA       NA
## avg_median_age                               NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (1 not defined because of singularities)
##                                       Estimate Std. Error t value Pr(>|t|)
## (Intercept)                             0.5878         NA      NA       NA
## total_weighted_visit_hours_per_capita       NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
## 
## Coefficients: (7 not defined because of singularities)
##                                       Estimate Std. Error t value Pr(>|t|)
## (Intercept)                             0.5878         NA      NA       NA
## total_weighted_visit_hours_per_capita       NA         NA      NA       NA
## percent_under_125000                        NA         NA      NA       NA
## avg_household_size                          NA         NA      NA       NA
## pop_density                                 NA         NA      NA       NA
## `percent more than 1 occupant`              NA         NA      NA       NA
## `percent more than 1 unit`                  NA         NA      NA       NA
## avg_median_age                              NA         NA      NA       NA
## 
## Residual standard error: NaN on 0 degrees of freedom
## 
## [1] "Cases start date: 2020-03-30"
## [1] "Visits start date: 2020-03-16"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.901e-04 -1.690e-04 -2.379e-05  3.439e-05  4.589e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.0002032  0.0001075   1.890   0.0654 .
## total_weighted_visits_per_capita -0.0011135  0.0044230  -0.252   0.8024  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001794 on 44 degrees of freedom
## Multiple R-squared:  0.001438,   Adjusted R-squared:  -0.02126 
## F-statistic: 0.06338 on 1 and 44 DF,  p-value: 0.8024
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.643e-04 -9.216e-05 -1.137e-05  9.515e-05  2.912e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       2.189e-04  7.808e-04   0.280 0.780746    
## total_weighted_visits_per_capita -1.472e-03  4.523e-03  -0.325 0.746633    
## percent_under_125000              6.576e-06  2.776e-06   2.369 0.023040 *  
## avg_household_size                8.851e-05  1.671e-04   0.530 0.599387    
## pop_density                      -5.365e-02  1.423e-02  -3.771 0.000553 ***
## `percent more than 1 occupant`   -1.223e-05  1.246e-05  -0.981 0.332856    
## `percent more than 1 unit`        1.299e-06  3.119e-06   0.417 0.679332    
## avg_median_age                   -1.258e-05  8.635e-06  -1.457 0.153420    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001451 on 38 degrees of freedom
## Multiple R-squared:  0.4357, Adjusted R-squared:  0.3318 
## F-statistic: 4.192 on 7 and 38 DF,  p-value: 0.001651
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.675e-04 -1.577e-04 -1.321e-05  3.421e-05  4.453e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.739e-04  9.903e-05   1.756   0.0864 .
## total_weighted_visits_per_capita -5.458e-04  4.064e-03  -0.134   0.8938  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001645 on 42 degrees of freedom
## Multiple R-squared:  0.0004293,  Adjusted R-squared:  -0.02337 
## F-statistic: 0.01804 on 1 and 42 DF,  p-value: 0.8938
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.426e-04 -9.993e-05 -4.397e-06  5.594e-05  2.894e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       1.608e-04  7.095e-04   0.227  0.82195   
## total_weighted_visits_per_capita -2.970e-03  4.130e-03  -0.719  0.47673   
## percent_under_125000              6.191e-06  2.543e-06   2.434  0.02001 * 
## avg_household_size                2.745e-05  1.525e-04   0.180  0.85816   
## pop_density                      -4.789e-02  1.400e-02  -3.421  0.00157 **
## `percent more than 1 occupant`   -1.138e-06  1.180e-05  -0.096  0.92372   
## `percent more than 1 unit`       -2.925e-07  2.890e-06  -0.101  0.91993   
## avg_median_age                   -6.302e-06  8.108e-06  -0.777  0.44211   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001314 on 36 degrees of freedom
## Multiple R-squared:  0.453,  Adjusted R-squared:  0.3466 
## F-statistic: 4.258 on 7 and 36 DF,  p-value: 0.001625
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.56358 -0.51153  0.09404  0.34210  0.69425 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                        0.4672     0.2524   1.851   0.0712 .
## total_weighted_visits_per_capita   2.2838    10.3586   0.220   0.8266  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.4192 on 42 degrees of freedom
## Multiple R-squared:  0.001156,   Adjusted R-squared:  -0.02263 
## F-statistic: 0.04861 on 1 and 42 DF,  p-value: 0.8266
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.54729 -0.18195 -0.04472  0.13782  0.61384 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                      -4.411e-01  1.719e+00  -0.257 0.798922    
## total_weighted_visits_per_capita -5.415e-01  1.000e+01  -0.054 0.957133    
## percent_under_125000              8.316e-03  6.161e-03   1.350 0.185525    
## avg_household_size                2.885e-01  3.694e-01   0.781 0.439902    
## pop_density                      -1.247e+02  3.391e+01  -3.678 0.000762 ***
## `percent more than 1 occupant`    6.448e-03  2.859e-02   0.226 0.822815    
## `percent more than 1 unit`        5.769e-03  7.000e-03   0.824 0.415299    
## avg_median_age                   -7.378e-03  1.964e-02  -0.376 0.709373    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3184 on 36 degrees of freedom
## Multiple R-squared:  0.5062, Adjusted R-squared:  0.4102 
## F-statistic: 5.272 on 7 and 36 DF,  p-value: 0.0003291
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.829e-04 -1.694e-04 -2.350e-05  2.114e-05  4.709e-04 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  1.476e-04  1.586e-04   0.931    0.357
## total_visit_hours_per_capita 6.429e-06  3.424e-05   0.188    0.852
## 
## Residual standard error: 0.0001795 on 44 degrees of freedom
## Multiple R-squared:  0.0008008,  Adjusted R-squared:  -0.02191 
## F-statistic: 0.03526 on 1 and 44 DF,  p-value: 0.8519
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.676e-04 -8.432e-05 -2.033e-05  8.632e-05  2.828e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     8.606e-05  7.643e-04   0.113 0.910937    
## total_visit_hours_per_capita   -3.922e-05  3.224e-05  -1.217 0.231170    
## percent_under_125000            7.113e-06  2.636e-06   2.698 0.010338 *  
## avg_household_size              1.313e-04  1.598e-04   0.821 0.416557    
## pop_density                    -5.487e-02  1.368e-02  -4.011 0.000273 ***
## `percent more than 1 occupant` -1.274e-05  1.173e-05  -1.086 0.284469    
## `percent more than 1 unit`      1.921e-06  2.934e-06   0.655 0.516509    
## avg_median_age                 -9.848e-06  8.742e-06  -1.127 0.267004    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001426 on 38 degrees of freedom
## Multiple R-squared:  0.4554, Adjusted R-squared:  0.355 
## F-statistic: 4.539 on 7 and 38 DF,  p-value: 0.0009283
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.013e-04 -1.128e-04 -1.661e-05  4.808e-05  4.830e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -5.175e-05  1.527e-04  -0.339    0.736
## total_visit_hours_per_capita  4.603e-05  3.262e-05   1.411    0.166
## 
## Residual standard error: 0.0001608 on 42 degrees of freedom
## Multiple R-squared:  0.04526,    Adjusted R-squared:  0.02253 
## F-statistic: 1.991 on 1 and 42 DF,  p-value: 0.1656
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.592e-04 -8.823e-05 -9.657e-06  5.934e-05  2.848e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     5.691e-05  7.125e-04   0.080 0.936780    
## total_visit_hours_per_capita   -1.445e-05  3.219e-05  -0.449 0.656209    
## percent_under_125000            5.914e-06  2.531e-06   2.336 0.025157 *  
## avg_household_size              7.073e-05  1.500e-04   0.472 0.640049    
## pop_density                    -5.062e-02  1.399e-02  -3.618 0.000905 ***
## `percent more than 1 occupant` -3.951e-06  1.129e-05  -0.350 0.728352    
## `percent more than 1 unit`      5.583e-07  2.809e-06   0.199 0.843581    
## avg_median_age                 -6.549e-06  8.281e-06  -0.791 0.434231    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000132 on 36 degrees of freedom
## Multiple R-squared:  0.4482, Adjusted R-squared:  0.3409 
## F-statistic: 4.177 on 7 and 36 DF,  p-value: 0.001856
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.64067 -0.35991  0.07552  0.32431  0.71373 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -0.11070    0.38604  -0.287    0.776
## total_visit_hours_per_capita  0.13669    0.08247   1.657    0.105
## 
## Residual standard error: 0.4064 on 42 degrees of freedom
## Multiple R-squared:  0.06139,    Adjusted R-squared:  0.03905 
## F-statistic: 2.747 on 1 and 42 DF,  p-value: 0.1049
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.56226 -0.18071 -0.04641  0.14499  0.59599 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    -5.485e-01  1.714e+00  -0.320 0.750768    
## total_visit_hours_per_capita   -3.478e-02  7.741e-02  -0.449 0.655899    
## percent_under_125000            9.126e-03  6.089e-03   1.499 0.142621    
## avg_household_size              3.252e-01  3.607e-01   0.901 0.373328    
## pop_density                    -1.273e+02  3.366e+01  -3.783 0.000564 ***
## `percent more than 1 occupant`  5.478e-03  2.715e-02   0.202 0.841240    
## `percent more than 1 unit`      6.415e-03  6.756e-03   0.949 0.348719    
## avg_median_age                 -5.059e-03  1.992e-02  -0.254 0.800922    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3175 on 36 degrees of freedom
## Multiple R-squared:  0.5089, Adjusted R-squared:  0.4134 
## F-statistic:  5.33 on 7 and 36 DF,  p-value: 0.0003016
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.139e-04 -1.254e-04 -3.004e-05  8.281e-05  4.251e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            2.464e-04  4.166e-05   5.915  4.5e-07
## total_weighted_visit_hours_per_capita -1.835e-03  8.753e-04  -2.097   0.0418
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001712 on 44 degrees of freedom
## Multiple R-squared:  0.09084,    Adjusted R-squared:  0.07018 
## F-statistic: 4.396 on 1 and 44 DF,  p-value: 0.0418
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.532e-04 -8.619e-05 -2.080e-05  8.801e-05  2.910e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            2.281e-04  7.842e-04   0.291 0.772794
## total_weighted_visit_hours_per_capita -2.928e-04  8.692e-04  -0.337 0.738042
## percent_under_125000                   6.235e-06  2.583e-06   2.414 0.020721
## avg_household_size                     8.651e-05  1.683e-04   0.514 0.610218
## pop_density                           -5.292e-02  1.478e-02  -3.580 0.000959
## `percent more than 1 occupant`        -1.224e-05  1.242e-05  -0.986 0.330547
## `percent more than 1 unit`             1.272e-06  3.134e-06   0.406 0.687244
## avg_median_age                        -1.275e-05  8.540e-06  -1.493 0.143800
##                                          
## (Intercept)                              
## total_weighted_visit_hours_per_capita    
## percent_under_125000                  *  
## avg_household_size                       
## pop_density                           ***
## `percent more than 1 occupant`           
## `percent more than 1 unit`               
## avg_median_age                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001451 on 38 degrees of freedom
## Multiple R-squared:  0.4358, Adjusted R-squared:  0.3319 
## F-statistic: 4.194 on 7 and 38 DF,  p-value: 0.001646
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.950e-04 -1.218e-04 -1.669e-05  3.900e-05  4.087e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            2.246e-04  3.876e-05   5.795 7.82e-07
## total_weighted_visit_hours_per_capita -1.670e-03  8.063e-04  -2.071   0.0446
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001567 on 42 degrees of freedom
## Multiple R-squared:  0.09264,    Adjusted R-squared:  0.07104 
## F-statistic: 4.288 on 1 and 42 DF,  p-value: 0.04456
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.149e-04 -9.610e-05 -6.103e-06  6.274e-05  2.941e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            1.914e-04  7.114e-04   0.269  0.78939   
## total_weighted_visit_hours_per_capita -6.603e-04  7.934e-04  -0.832  0.41076   
## percent_under_125000                   5.477e-06  2.365e-06   2.316  0.02636 * 
## avg_household_size                     1.873e-05  1.535e-04   0.122  0.90357   
## pop_density                           -4.573e-02  1.454e-02  -3.145  0.00332 **
## `percent more than 1 occupant`        -7.631e-07  1.176e-05  -0.065  0.94863   
## `percent more than 1 unit`            -4.614e-07  2.910e-06  -0.159  0.87492   
## avg_median_age                        -6.519e-06  7.991e-06  -0.816  0.41999   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001311 on 36 degrees of freedom
## Multiple R-squared:  0.4556, Adjusted R-squared:  0.3497 
## F-statistic: 4.303 on 7 and 36 DF,  p-value: 0.00151
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.6092 -0.3607  0.1014  0.2976  0.6710 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.68597    0.09866   6.953  1.7e-08 ***
## total_weighted_visit_hours_per_capita -4.32782    2.05241  -2.109    0.041 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3989 on 42 degrees of freedom
## Multiple R-squared:  0.09573,    Adjusted R-squared:  0.0742 
## F-statistic: 4.446 on 1 and 42 DF,  p-value: 0.04098
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.5685 -0.1828 -0.0353  0.1596  0.6112 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                           -2.514e-01  1.715e+00  -0.147  0.88427   
## total_weighted_visit_hours_per_capita -1.403e+00  1.912e+00  -0.734  0.46778   
## percent_under_125000                   8.088e-03  5.700e-03   1.419  0.16454   
## avg_household_size                     2.110e-01  3.701e-01   0.570  0.57209   
## pop_density                           -1.167e+02  3.505e+01  -3.329  0.00202 **
## `percent more than 1 occupant`         1.231e-02  2.835e-02   0.434  0.66669   
## `percent more than 1 unit`             4.185e-03  7.014e-03   0.597  0.55445   
## avg_median_age                        -5.296e-03  1.926e-02  -0.275  0.78492   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.316 on 36 degrees of freedom
## Multiple R-squared:  0.5135, Adjusted R-squared:  0.4189 
## F-statistic: 5.427 on 7 and 36 DF,  p-value: 0.0002604
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.176e-04 -7.048e-05 -3.280e-05  7.025e-05  2.562e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -5.331e-05  2.381e-04  -0.224    0.827
## total_weighted_visits_per_capita  1.475e-02  1.075e-02   1.372    0.197
## 
## Residual standard error: 0.0001548 on 11 degrees of freedom
## Multiple R-squared:  0.1461, Adjusted R-squared:  0.0685 
## F-statistic: 1.882 on 1 and 11 DF,  p-value: 0.1974
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##          1          2          3          4          5          6          7 
## -1.247e-05 -3.759e-05  8.893e-05 -4.427e-06  1.295e-04 -7.418e-05 -5.215e-05 
##          8          9         10         11         12         13 
## -4.045e-05 -6.185e-05 -4.273e-05  1.087e-04  4.663e-06 -5.869e-06 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -3.510e-03  1.844e-03  -1.904   0.1153  
## total_weighted_visits_per_capita -3.087e-02  1.996e-02  -1.546   0.1827  
## percent_under_125000              2.322e-05  6.969e-06   3.332   0.0207 *
## avg_household_size                2.897e-05  5.775e-04   0.050   0.9619  
## pop_density                      -1.046e-01  1.094e-01  -0.956   0.3829  
## `percent more than 1 occupant`    2.832e-05  7.557e-05   0.375   0.7232  
## `percent more than 1 unit`        5.538e-06  1.139e-05   0.486   0.6473  
## avg_median_age                    6.829e-05  5.589e-05   1.222   0.2762  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001036 on 5 degrees of freedom
## Multiple R-squared:  0.8262, Adjusted R-squared:  0.5829 
## F-statistic: 3.396 on 7 and 5 DF,  p-value: 0.09853
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.36163 -0.21464 -0.00523  0.15951  0.39810 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                        0.2169     0.3941    0.55    0.593
## total_weighted_visits_per_capita  17.7926    17.7895    1.00    0.339
## 
## Residual standard error: 0.2562 on 11 degrees of freedom
## Multiple R-squared:  0.08336,    Adjusted R-squared:  2.897e-05 
## F-statistic:     1 on 1 and 11 DF,  p-value: 0.3387
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##         1         2         3         4         5         6         7         8 
##  0.054388 -0.115682  0.079438 -0.030079  0.298423 -0.041558 -0.064716 -0.218999 
##         9        10        11        12        13 
## -0.049569  0.023780  0.120139 -0.062350  0.006785 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       -4.08504    3.45091  -1.184   0.2897  
## total_weighted_visits_per_capita -61.33046   37.36303  -1.641   0.1616  
## percent_under_125000               0.03441    0.01304   2.639   0.0461 *
## avg_household_size                 0.93747    1.08090   0.867   0.4254  
## pop_density                      -21.92217  204.67117  -0.107   0.9189  
## `percent more than 1 occupant`    -0.06911    0.14144  -0.489   0.6458  
## `percent more than 1 unit`         0.01761    0.02132   0.826   0.4464  
## avg_median_age                     0.02828    0.10460   0.270   0.7977  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1938 on 5 degrees of freedom
## Multiple R-squared:  0.7614, Adjusted R-squared:  0.4274 
## F-statistic: 2.279 on 7 and 5 DF,  p-value: 0.1907
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.066e-04 -9.185e-05 -5.190e-05  8.894e-05  2.486e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -2.072e-04  2.583e-04  -0.802   0.4395  
## total_visit_hours_per_capita  9.789e-05  5.255e-05   1.863   0.0894 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000146 on 11 degrees of freedom
## Multiple R-squared:  0.2398, Adjusted R-squared:  0.1707 
## F-statistic:  3.47 on 1 and 11 DF,  p-value: 0.08939
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##          1          2          3          4          5          6          7 
## -8.307e-05 -6.242e-05  8.305e-05 -6.561e-05  9.454e-05  8.266e-06  7.300e-06 
##          8          9         10         11         12         13 
## -5.038e-05  2.852e-06  1.618e-05  6.322e-05 -1.486e-05  9.302e-07 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -5.743e-03  1.613e-03  -3.561   0.0162 *
## total_visit_hours_per_capita    1.007e-04  4.328e-05   2.326   0.0676 .
## percent_under_125000            1.701e-05  4.308e-06   3.949   0.0109 *
## avg_household_size             -8.061e-04  5.074e-04  -1.589   0.1730  
## pop_density                    -2.090e-01  9.042e-02  -2.311   0.0688 .
## `percent more than 1 occupant`  1.482e-04  6.384e-05   2.321   0.0680 .
## `percent more than 1 unit`     -8.782e-06  9.868e-06  -0.890   0.4143  
## avg_median_age                  1.596e-04  4.963e-05   3.217   0.0235 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 8.728e-05 on 5 degrees of freedom
## Multiple R-squared:  0.8766, Adjusted R-squared:  0.7038 
## F-statistic: 5.074 on 7 and 5 DF,  p-value: 0.04622
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.28588 -0.21476  0.04307  0.15274  0.31745 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   -0.2306     0.3987  -0.578   0.5747  
## total_visit_hours_per_capita   0.1720     0.0811   2.121   0.0574 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2254 on 11 degrees of freedom
## Multiple R-squared:  0.2903, Adjusted R-squared:  0.2258 
## F-statistic:   4.5 on 1 and 11 DF,  p-value: 0.05745
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        1        2        3        4        5        6        7        8 
## -0.08026 -0.13343  0.05998 -0.11507  0.27359  0.08368  0.02581 -0.21062 
##        9       10       11       12       13 
##  0.08010  0.09837  0.08247 -0.14182 -0.02281 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -7.642e+00  3.800e+00  -2.011   0.1005  
## total_visit_hours_per_capita    1.382e-01  1.020e-01   1.355   0.2335  
## percent_under_125000            2.136e-02  1.015e-02   2.104   0.0893 .
## avg_household_size             -4.023e-01  1.196e+00  -0.336   0.7502  
## pop_density                    -1.974e+02  2.131e+02  -0.927   0.3967  
## `percent more than 1 occupant`  1.276e-01  1.504e-01   0.848   0.4350  
## `percent more than 1 unit`     -5.441e-03  2.325e-02  -0.234   0.8243  
## avg_median_age                  1.748e-01  1.169e-01   1.495   0.1951  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2057 on 5 degrees of freedom
## Multiple R-squared:  0.7314, Adjusted R-squared:  0.3554 
## F-statistic: 1.945 on 7 and 5 DF,  p-value: 0.2407
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.156e-04 -9.510e-05 -7.396e-05  1.296e-04  2.787e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.0002770  0.0001346   2.058   0.0641 .
## total_weighted_visit_hours_per_capita -0.0003220  0.0045431  -0.071   0.9448  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001675 on 11 degrees of freedom
## Multiple R-squared:  0.0004564,  Adjusted R-squared:  -0.09041 
## F-statistic: 0.005023 on 1 and 11 DF,  p-value: 0.9448
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##          1          2          3          4          5          6          7 
## -4.674e-05 -6.248e-05  6.544e-05 -4.468e-05  1.738e-04 -9.257e-07 -3.341e-05 
##          8          9         10         11         12         13 
## -3.316e-06  3.253e-05  2.177e-06  7.031e-05 -7.709e-05 -7.567e-05 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -6.256e-03  2.485e-03  -2.517   0.0533 .
## total_weighted_visit_hours_per_capita  5.335e-03  4.420e-03   1.207   0.2814  
## percent_under_125000                   1.858e-05  5.886e-06   3.156   0.0252 *
## avg_household_size                    -6.425e-04  6.493e-04  -0.990   0.3678  
## pop_density                           -2.119e-01  1.202e-01  -1.763   0.1382  
## `percent more than 1 occupant`         1.456e-04  8.998e-05   1.618   0.1667  
## `percent more than 1 unit`            -6.941e-06  1.293e-05  -0.537   0.6143  
## avg_median_age                         1.655e-04  7.552e-05   2.191   0.0800 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001108 on 5 degrees of freedom
## Multiple R-squared:  0.8011, Adjusted R-squared:  0.5226 
## F-statistic: 2.877 on 7 and 5 DF,  p-value: 0.1313
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.32593 -0.17202 -0.03038  0.16957  0.42589 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                             0.6549     0.2144   3.054    0.011 *
## total_weighted_visit_hours_per_capita  -1.8092     7.2377  -0.250    0.807  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2668 on 11 degrees of freedom
## Multiple R-squared:  0.005648,   Adjusted R-squared:  -0.08475 
## F-statistic: 0.06248 on 1 and 11 DF,  p-value: 0.8072
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        1        2        3        4        5        6        7        8 
## -0.05417 -0.08844  0.04014 -0.05251  0.37657  0.02411 -0.03378 -0.14716 
##        9       10       11       12       13 
##  0.09647  0.03088  0.16098 -0.23076 -0.12234 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -6.645e+00  5.352e+00  -1.242    0.269
## total_weighted_visit_hours_per_capita  2.652e+00  9.518e+00   0.279    0.792
## percent_under_125000                   2.111e-02  1.268e-02   1.665    0.157
## avg_household_size                     1.345e-01  1.398e+00   0.096    0.927
## pop_density                           -1.534e+02  2.588e+02  -0.593    0.579
## `percent more than 1 occupant`         6.735e-02  1.938e-01   0.348    0.742
## `percent more than 1 unit`             3.178e-03  2.784e-02   0.114    0.914
## avg_median_age                         1.279e-01  1.626e-01   0.787    0.467
## 
## Residual standard error: 0.2386 on 5 degrees of freedom
## Multiple R-squared:  0.6384, Adjusted R-squared:  0.1323 
## F-statistic: 1.261 on 7 and 5 DF,  p-value: 0.4129
## 
## [1] "Cases start date: 2020-04-06"
## [1] "Visits start date: 2020-03-23"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.536e-04 -1.404e-04 -4.263e-05  9.132e-05  4.390e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.560e-04  7.295e-05   2.138   0.0381 *
## total_weighted_visits_per_capita -2.982e-04  2.323e-03  -0.128   0.8985  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001572 on 44 degrees of freedom
## Multiple R-squared:  0.0003743,  Adjusted R-squared:  -0.02234 
## F-statistic: 0.01648 on 1 and 44 DF,  p-value: 0.8985
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.302e-04 -7.284e-05 -3.346e-05  6.370e-05  3.534e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -1.393e-04  6.775e-04  -0.206   0.8382  
## total_weighted_visits_per_capita -1.995e-04  2.137e-03  -0.093   0.9261  
## percent_under_125000              6.010e-06  2.308e-06   2.604   0.0131 *
## avg_household_size                6.725e-05  1.427e-04   0.471   0.6403  
## pop_density                      -2.432e-02  1.252e-02  -1.943   0.0595 .
## `percent more than 1 occupant`   -8.483e-07  1.056e-05  -0.080   0.9364  
## `percent more than 1 unit`       -1.006e-06  2.630e-06  -0.382   0.7043  
## avg_median_age                   -4.186e-06  7.500e-06  -0.558   0.5801  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared:  0.4383, Adjusted R-squared:  0.3348 
## F-statistic: 4.236 on 7 and 38 DF,  p-value: 0.001533
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.536e-04 -1.404e-04 -4.263e-05  9.132e-05  4.390e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.560e-04  7.295e-05   2.138   0.0381 *
## total_weighted_visits_per_capita -2.982e-04  2.323e-03  -0.128   0.8985  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001572 on 44 degrees of freedom
## Multiple R-squared:  0.0003743,  Adjusted R-squared:  -0.02234 
## F-statistic: 0.01648 on 1 and 44 DF,  p-value: 0.8985
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.302e-04 -7.284e-05 -3.346e-05  6.370e-05  3.534e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -1.393e-04  6.775e-04  -0.206   0.8382  
## total_weighted_visits_per_capita -1.995e-04  2.137e-03  -0.093   0.9261  
## percent_under_125000              6.010e-06  2.308e-06   2.604   0.0131 *
## avg_household_size                6.725e-05  1.427e-04   0.471   0.6403  
## pop_density                      -2.432e-02  1.252e-02  -1.943   0.0595 .
## `percent more than 1 occupant`   -8.483e-07  1.056e-05  -0.080   0.9364  
## `percent more than 1 unit`       -1.006e-06  2.630e-06  -0.382   0.7043  
## avg_median_age                   -4.186e-06  7.500e-06  -0.558   0.5801  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared:  0.4383, Adjusted R-squared:  0.3348 
## F-statistic: 4.236 on 7 and 38 DF,  p-value: 0.001533
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.37665 -0.26403 -0.07523  0.12001  0.69403 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                        0.2060     0.1432   1.438    0.158
## total_weighted_visits_per_capita   3.0524     4.5621   0.669    0.507
## 
## Residual standard error: 0.3086 on 44 degrees of freedom
## Multiple R-squared:  0.01007,    Adjusted R-squared:  -0.01243 
## F-statistic: 0.4477 on 1 and 44 DF,  p-value: 0.5069
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.39730 -0.17270 -0.05482  0.12133  0.76119 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       -2.299071   1.509819  -1.523    0.136
## total_weighted_visits_per_capita   3.462338   4.761065   0.727    0.472
## percent_under_125000               0.005935   0.005144   1.154    0.256
## avg_household_size                 0.524011   0.318088   1.647    0.108
## pop_density                      -13.986536  27.901020  -0.501    0.619
## `percent more than 1 occupant`    -0.013507   0.023523  -0.574    0.569
## `percent more than 1 unit`         0.006448   0.005861   1.100    0.278
## avg_median_age                     0.013590   0.016713   0.813    0.421
## 
## Residual standard error: 0.2825 on 38 degrees of freedom
## Multiple R-squared:  0.2835, Adjusted R-squared:  0.1515 
## F-statistic: 2.148 on 7 and 38 DF,  p-value: 0.06158
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.759e-04 -1.166e-04 -5.198e-05  1.007e-04  4.288e-04 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  7.481e-05  1.072e-04   0.698    0.489
## total_visit_hours_per_capita 1.159e-05  1.678e-05   0.691    0.493
## 
## Residual standard error: 0.0001564 on 44 degrees of freedom
## Multiple R-squared:  0.01072,    Adjusted R-squared:  -0.01176 
## F-statistic: 0.4768 on 1 and 44 DF,  p-value: 0.4935
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.322e-04 -7.216e-05 -3.320e-05  6.526e-05  3.525e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -1.436e-04  6.760e-04  -0.212   0.8329  
## total_visit_hours_per_capita   -3.027e-07  1.424e-05  -0.021   0.9832  
## percent_under_125000            5.971e-06  2.274e-06   2.625   0.0124 *
## avg_household_size              6.957e-05  1.406e-04   0.495   0.6237  
## pop_density                    -2.460e-02  1.216e-02  -2.022   0.0502 .
## `percent more than 1 occupant` -9.907e-07  1.044e-05  -0.095   0.9249  
## `percent more than 1 unit`     -9.654e-07  2.601e-06  -0.371   0.7125  
## avg_median_age                 -4.281e-06  7.474e-06  -0.573   0.5702  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared:  0.4382, Adjusted R-squared:  0.3347 
## F-statistic: 4.234 on 7 and 38 DF,  p-value: 0.001538
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.759e-04 -1.166e-04 -5.198e-05  1.007e-04  4.288e-04 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  7.481e-05  1.072e-04   0.698    0.489
## total_visit_hours_per_capita 1.159e-05  1.678e-05   0.691    0.493
## 
## Residual standard error: 0.0001564 on 44 degrees of freedom
## Multiple R-squared:  0.01072,    Adjusted R-squared:  -0.01176 
## F-statistic: 0.4768 on 1 and 44 DF,  p-value: 0.4935
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.322e-04 -7.216e-05 -3.320e-05  6.526e-05  3.525e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -1.436e-04  6.760e-04  -0.212   0.8329  
## total_visit_hours_per_capita   -3.027e-07  1.424e-05  -0.021   0.9832  
## percent_under_125000            5.971e-06  2.274e-06   2.625   0.0124 *
## avg_household_size              6.957e-05  1.406e-04   0.495   0.6237  
## pop_density                    -2.460e-02  1.216e-02  -2.022   0.0502 .
## `percent more than 1 occupant` -9.907e-07  1.044e-05  -0.095   0.9249  
## `percent more than 1 unit`     -9.654e-07  2.601e-06  -0.371   0.7125  
## avg_median_age                 -4.281e-06  7.474e-06  -0.573   0.5702  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared:  0.4382, Adjusted R-squared:  0.3347 
## F-statistic: 4.234 on 7 and 38 DF,  p-value: 0.001538
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.36472 -0.21407 -0.09583  0.12393  0.70405 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.12691    0.21097   0.602    0.551
## total_visit_hours_per_capita  0.02725    0.03303   0.825    0.414
## 
## Residual standard error: 0.3078 on 44 degrees of freedom
## Multiple R-squared:  0.01523,    Adjusted R-squared:  -0.007155 
## F-statistic: 0.6803 on 1 and 44 DF,  p-value: 0.4139
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.39445 -0.16385 -0.05397  0.10052  0.77713 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -2.223846   1.516337  -1.467    0.151
## total_visit_hours_per_capita    0.004136   0.031952   0.129    0.898
## percent_under_125000            0.006641   0.005102   1.302    0.201
## avg_household_size              0.483796   0.315455   1.534    0.133
## pop_density                    -9.189854  27.282866  -0.337    0.738
## `percent more than 1 occupant` -0.010981   0.023429  -0.469    0.642
## `percent more than 1 unit`      0.005754   0.005833   0.986    0.330
## avg_median_age                  0.015328   0.016765   0.914    0.366
## 
## Residual standard error: 0.2844 on 38 degrees of freedom
## Multiple R-squared:  0.2739, Adjusted R-squared:  0.1401 
## F-statistic: 2.047 on 7 and 38 DF,  p-value: 0.07397
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.656e-04 -1.297e-04 -3.991e-05  1.201e-04  4.383e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            1.740e-04  3.446e-05   5.050 8.19e-06
## total_weighted_visit_hours_per_capita -3.941e-04  3.771e-04  -1.045    0.302
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001553 on 44 degrees of freedom
## Multiple R-squared:  0.02422,    Adjusted R-squared:  0.002048 
## F-statistic: 1.092 on 1 and 44 DF,  p-value: 0.3017
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.334e-04 -7.827e-05 -3.143e-05  6.544e-05  3.523e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -1.553e-04  6.795e-04  -0.229   0.8205  
## total_weighted_visit_hours_per_capita  5.564e-05  3.542e-04   0.157   0.8760  
## percent_under_125000                   5.957e-06  2.256e-06   2.640   0.0120 *
## avg_household_size                     7.002e-05  1.406e-04   0.498   0.6214  
## pop_density                           -2.521e-02  1.277e-02  -1.975   0.0556 .
## `percent more than 1 occupant`        -7.741e-07  1.052e-05  -0.074   0.9417  
## `percent more than 1 unit`            -9.428e-07  2.602e-06  -0.362   0.7192  
## avg_median_age                        -4.155e-06  7.451e-06  -0.558   0.5803  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared:  0.4385, Adjusted R-squared:  0.3351 
## F-statistic:  4.24 on 7 and 38 DF,  p-value: 0.001523
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.656e-04 -1.297e-04 -3.991e-05  1.201e-04  4.383e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            1.740e-04  3.446e-05   5.050 8.19e-06
## total_weighted_visit_hours_per_capita -3.941e-04  3.771e-04  -1.045    0.302
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001553 on 44 degrees of freedom
## Multiple R-squared:  0.02422,    Adjusted R-squared:  0.002048 
## F-statistic: 1.092 on 1 and 44 DF,  p-value: 0.3017
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.334e-04 -7.827e-05 -3.143e-05  6.544e-05  3.523e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -1.553e-04  6.795e-04  -0.229   0.8205  
## total_weighted_visit_hours_per_capita  5.564e-05  3.542e-04   0.157   0.8760  
## percent_under_125000                   5.957e-06  2.256e-06   2.640   0.0120 *
## avg_household_size                     7.002e-05  1.406e-04   0.498   0.6214  
## pop_density                           -2.521e-02  1.277e-02  -1.975   0.0556 .
## `percent more than 1 occupant`        -7.741e-07  1.052e-05  -0.074   0.9417  
## `percent more than 1 unit`            -9.428e-07  2.602e-06  -0.362   0.7192  
## avg_median_age                        -4.155e-06  7.451e-06  -0.558   0.5803  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared:  0.4385, Adjusted R-squared:  0.3351 
## F-statistic:  4.24 on 7 and 38 DF,  p-value: 0.001523
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.31195 -0.25991 -0.08213  0.09587  0.68580 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.31875    0.06868   4.641 3.13e-05 ***
## total_weighted_visit_hours_per_capita -0.32071    0.75161  -0.427    0.672    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3096 on 44 degrees of freedom
## Multiple R-squared:  0.004121,   Adjusted R-squared:  -0.01851 
## F-statistic: 0.1821 on 1 and 44 DF,  p-value: 0.6717
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.39981 -0.17495 -0.05238  0.10241  0.77974 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            -2.300727   1.519857  -1.514    0.138
## total_weighted_visit_hours_per_capita   0.398898   0.792253   0.503    0.618
## percent_under_125000                    0.006669   0.005048   1.321    0.194
## avg_household_size                      0.487619   0.314537   1.550    0.129
## pop_density                           -13.546441  28.558902  -0.474    0.638
## `percent more than 1 occupant`         -0.009123   0.023537  -0.388    0.700
## `percent more than 1 unit`              0.005964   0.005821   1.025    0.312
## avg_median_age                          0.016716   0.016666   1.003    0.322
## 
## Residual standard error: 0.2835 on 38 degrees of freedom
## Multiple R-squared:  0.2784, Adjusted R-squared:  0.1454 
## F-statistic: 2.094 on 7 and 38 DF,  p-value: 0.06796
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.800e-04 -1.277e-04 -4.814e-05  1.110e-04  3.599e-04 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.0001398  0.0001046   1.337    0.192
## total_weighted_visits_per_capita 0.0021005  0.0035522   0.591    0.559
## 
## Residual standard error: 0.0001546 on 28 degrees of freedom
## Multiple R-squared:  0.01233,    Adjusted R-squared:  -0.02294 
## F-statistic: 0.3497 on 1 and 28 DF,  p-value: 0.559
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.036e-04 -7.940e-05 -1.301e-05  6.009e-05  2.883e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       8.719e-04  8.746e-04   0.997   0.3297  
## total_weighted_visits_per_capita  7.152e-05  4.831e-03   0.015   0.9883  
## percent_under_125000              5.274e-06  2.787e-06   1.893   0.0716 .
## avg_household_size               -3.692e-05  2.112e-04  -0.175   0.8628  
## pop_density                      -4.062e-02  2.764e-02  -1.470   0.1558  
## `percent more than 1 occupant`    4.146e-07  1.781e-05   0.023   0.9816  
## `percent more than 1 unit`       -2.154e-06  3.480e-06  -0.619   0.5423  
## avg_median_age                   -1.951e-05  1.122e-05  -1.739   0.0960 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001293 on 22 degrees of freedom
## Multiple R-squared:  0.4576, Adjusted R-squared:  0.2851 
## F-statistic: 2.652 on 7 and 22 DF,  p-value: 0.03776
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.35715 -0.18794 -0.05162  0.10485  0.62708 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                        0.1081     0.1731   0.624    0.537
## total_weighted_visits_per_capita   9.2786     5.8800   1.578    0.126
## 
## Residual standard error: 0.2559 on 28 degrees of freedom
## Multiple R-squared:  0.08167,    Adjusted R-squared:  0.04887 
## F-statistic:  2.49 on 1 and 28 DF,  p-value: 0.1258
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.22077 -0.17105 -0.05686  0.09027  0.61066 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       1.291e+00  1.681e+00   0.768    0.450
## total_weighted_visits_per_capita  8.801e+00  9.284e+00   0.948    0.353
## percent_under_125000              7.881e-04  5.355e-03   0.147    0.884
## avg_household_size               -2.069e-02  4.059e-01  -0.051    0.960
## pop_density                      -5.050e+01  5.310e+01  -0.951    0.352
## `percent more than 1 occupant`    9.953e-03  3.422e-02   0.291    0.774
## `percent more than 1 unit`       -1.630e-03  6.688e-03  -0.244    0.810
## avg_median_age                   -2.828e-02  2.156e-02  -1.312    0.203
## 
## Residual standard error: 0.2484 on 22 degrees of freedom
## Multiple R-squared:  0.3205, Adjusted R-squared:  0.1043 
## F-statistic: 1.482 on 7 and 22 DF,  p-value: 0.2248
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.734e-04 -1.203e-04 -4.831e-05  1.030e-04  3.746e-04 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  8.735e-05  1.796e-04   0.486    0.630
## total_visit_hours_per_capita 1.767e-05  2.798e-05   0.631    0.533
## 
## Residual standard error: 0.0001545 on 28 degrees of freedom
## Multiple R-squared:  0.01404,    Adjusted R-squared:  -0.02117 
## F-statistic: 0.3987 on 1 and 28 DF,  p-value: 0.5329
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.056e-04 -7.875e-05 -1.035e-05  5.933e-05  2.890e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     8.766e-04  8.743e-04   1.003   0.3269  
## total_visit_hours_per_capita    4.427e-06  2.664e-05   0.166   0.8695  
## percent_under_125000            5.305e-06  2.759e-06   1.923   0.0675 .
## avg_household_size             -4.596e-05  2.178e-04  -0.211   0.8348  
## pop_density                    -4.072e-02  2.407e-02  -1.692   0.1048  
## `percent more than 1 occupant`  7.322e-07  1.777e-05   0.041   0.9675  
## `percent more than 1 unit`     -2.346e-06  3.665e-06  -0.640   0.5288  
## avg_median_age                 -1.955e-05  1.112e-05  -1.759   0.0925 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001292 on 22 degrees of freedom
## Multiple R-squared:  0.4583, Adjusted R-squared:  0.286 
## F-statistic: 2.659 on 7 and 22 DF,  p-value: 0.03736
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.3067 -0.1843 -0.0933  0.1193  0.6131 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -0.02616    0.30103  -0.087    0.931
## total_visit_hours_per_capita  0.06267    0.04691   1.336    0.192
## 
## Residual standard error: 0.259 on 28 degrees of freedom
## Multiple R-squared:  0.05993,    Adjusted R-squared:  0.02635 
## F-statistic: 1.785 on 1 and 28 DF,  p-value: 0.1923
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.25324 -0.16173 -0.01086  0.08346  0.65042 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      1.356686   1.702017   0.797    0.434
## total_visit_hours_per_capita     0.029985   0.051860   0.578    0.569
## percent_under_125000             0.001700   0.005372   0.317    0.755
## avg_household_size              -0.091000   0.424014  -0.215    0.832
## pop_density                    -27.635079  46.861797  -0.590    0.561
## `percent more than 1 occupant`   0.015486   0.034601   0.448    0.659
## `percent more than 1 unit`      -0.002714   0.007136  -0.380    0.707
## avg_median_age                  -0.025932   0.021642  -1.198    0.244
## 
## Residual standard error: 0.2515 on 22 degrees of freedom
## Multiple R-squared:  0.3033, Adjusted R-squared:  0.08167 
## F-statistic: 1.368 on 7 and 22 DF,  p-value: 0.2673
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.734e-04 -1.288e-04 -4.542e-05  1.140e-04  3.799e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           1.890e-04  8.894e-05   2.125   0.0426 *
## total_weighted_visit_hours_per_capita 1.927e-04  1.570e-03   0.123   0.9032  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001555 on 28 degrees of freedom
## Multiple R-squared:  0.0005381,  Adjusted R-squared:  -0.03516 
## F-statistic: 0.01507 on 1 and 28 DF,  p-value: 0.9032
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.092e-04 -6.594e-05 -1.224e-05  6.378e-05  2.745e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            9.136e-04  8.469e-04   1.079   0.2924  
## total_weighted_visit_hours_per_capita  1.847e-03  1.512e-03   1.221   0.2349  
## percent_under_125000                   6.244e-06  2.782e-06   2.244   0.0352 *
## avg_household_size                    -9.135e-05  2.091e-04  -0.437   0.6665  
## pop_density                           -5.472e-02  2.602e-02  -2.103   0.0472 *
## `percent more than 1 occupant`         3.486e-06  1.731e-05   0.201   0.8422  
## `percent more than 1 unit`            -3.320e-06  3.499e-06  -0.949   0.3530  
## avg_median_age                        -1.938e-05  1.076e-05  -1.801   0.0855 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001251 on 22 degrees of freedom
## Multiple R-squared:  0.4921, Adjusted R-squared:  0.3305 
## F-statistic: 3.045 on 7 and 22 DF,  p-value: 0.02131
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.32325 -0.18232 -0.04562  0.08813  0.55544 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)
## (Intercept)                             0.1437     0.1458   0.985    0.333
## total_weighted_visit_hours_per_capita   4.2341     2.5737   1.645    0.111
## 
## Residual standard error: 0.255 on 28 degrees of freedom
## Multiple R-squared:  0.08814,    Adjusted R-squared:  0.05557 
## F-statistic: 2.706 on 1 and 28 DF,  p-value: 0.1111
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.32085 -0.11158 -0.02204  0.08802  0.60278 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                             1.459818   1.562197   0.934   0.3602  
## total_weighted_visit_hours_per_capita   5.937858   2.790102   2.128   0.0448 *
## percent_under_125000                    0.004629   0.005132   0.902   0.3769  
## avg_household_size                     -0.205015   0.385781  -0.531   0.6004  
## pop_density                           -71.542170  48.005086  -1.490   0.1503  
## `percent more than 1 occupant`          0.023311   0.031928   0.730   0.4730  
## `percent more than 1 unit`             -0.005159   0.006455  -0.799   0.4327  
## avg_median_age                         -0.025156   0.019848  -1.267   0.2182  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2308 on 22 degrees of freedom
## Multiple R-squared:  0.4135, Adjusted R-squared:  0.2269 
## F-statistic: 2.216 on 7 and 22 DF,  p-value: 0.07278
## 
## [1] "Cases start date: 2020-04-13"
## [1] "Visits start date: 2020-03-30"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.744e-04 -1.238e-04 -9.208e-05  1.079e-04  1.136e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -3.811e-05  1.341e-04  -0.284    0.778
## total_weighted_visits_per_capita  7.384e-03  4.695e-03   1.573    0.123
## 
## Residual standard error: 0.0002411 on 44 degrees of freedom
## Multiple R-squared:  0.05322,    Adjusted R-squared:  0.03171 
## F-statistic: 2.473 on 1 and 44 DF,  p-value: 0.1229
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.302e-04 -1.025e-04 -2.740e-05  3.216e-05  9.911e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       7.590e-04  1.118e-03   0.679   0.5014  
## total_weighted_visits_per_capita -4.491e-03  5.058e-03  -0.888   0.3802  
## percent_under_125000              9.461e-06  3.981e-06   2.376   0.0226 *
## avg_household_size               -3.541e-04  2.381e-04  -1.488   0.1451  
## pop_density                      -2.336e-02  2.002e-02  -1.167   0.2506  
## `percent more than 1 occupant`    3.614e-05  1.798e-05   2.010   0.0516 .
## `percent more than 1 unit`       -8.086e-06  4.439e-06  -1.822   0.0764 .
## avg_median_age                    1.596e-06  1.242e-05   0.128   0.8984  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002087 on 38 degrees of freedom
## Multiple R-squared:  0.3875, Adjusted R-squared:  0.2747 
## F-statistic: 3.434 on 7 and 38 DF,  p-value: 0.006065
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.744e-04 -1.238e-04 -9.208e-05  1.079e-04  1.136e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -3.811e-05  1.341e-04  -0.284    0.778
## total_weighted_visits_per_capita  7.384e-03  4.695e-03   1.573    0.123
## 
## Residual standard error: 0.0002411 on 44 degrees of freedom
## Multiple R-squared:  0.05322,    Adjusted R-squared:  0.03171 
## F-statistic: 2.473 on 1 and 44 DF,  p-value: 0.1229
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.302e-04 -1.025e-04 -2.740e-05  3.216e-05  9.911e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       7.590e-04  1.118e-03   0.679   0.5014  
## total_weighted_visits_per_capita -4.491e-03  5.058e-03  -0.888   0.3802  
## percent_under_125000              9.461e-06  3.981e-06   2.376   0.0226 *
## avg_household_size               -3.541e-04  2.381e-04  -1.488   0.1451  
## pop_density                      -2.336e-02  2.002e-02  -1.167   0.2506  
## `percent more than 1 occupant`    3.614e-05  1.798e-05   2.010   0.0516 .
## `percent more than 1 unit`       -8.086e-06  4.439e-06  -1.822   0.0764 .
## avg_median_age                    1.596e-06  1.242e-05   0.128   0.8984  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002087 on 38 degrees of freedom
## Multiple R-squared:  0.3875, Adjusted R-squared:  0.2747 
## F-statistic: 3.434 on 7 and 38 DF,  p-value: 0.006065
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.29644 -0.15175 -0.05376  0.09482  0.68186 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                        0.0140     0.1281   0.109    0.913
## total_weighted_visits_per_capita   6.6734     4.4848   1.488    0.144
## 
## Residual standard error: 0.2303 on 44 degrees of freedom
## Multiple R-squared:  0.04791,    Adjusted R-squared:  0.02627 
## F-statistic: 2.214 on 1 and 44 DF,  p-value: 0.1439
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.31269 -0.08711 -0.03362  0.04719  0.62335 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -0.058335   0.988742  -0.059  0.95326   
## total_weighted_visits_per_capita -6.604312   4.472044  -1.477  0.14797   
## percent_under_125000              0.007981   0.003520   2.268  0.02912 * 
## avg_household_size               -0.276025   0.210467  -1.311  0.19756   
## pop_density                      -2.474829  17.699266  -0.140  0.88954   
## `percent more than 1 occupant`    0.043318   0.015896   2.725  0.00967 **
## `percent more than 1 unit`       -0.005098   0.003925  -1.299  0.20175   
## avg_median_age                    0.016004   0.010979   1.458  0.15315   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1845 on 38 degrees of freedom
## Multiple R-squared:  0.4723, Adjusted R-squared:  0.3751 
## F-statistic: 4.858 on 7 and 38 DF,  p-value: 0.0005531
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.210e-04 -1.500e-04 -8.115e-05  6.413e-05  1.162e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -1.376e-04  1.935e-04  -0.711    0.481
## total_visit_hours_per_capita  7.082e-05  4.449e-05   1.592    0.119
## 
## Residual standard error: 0.0002409 on 44 degrees of freedom
## Multiple R-squared:  0.05445,    Adjusted R-squared:  0.03296 
## F-statistic: 2.534 on 1 and 44 DF,  p-value: 0.1186
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.069e-04 -1.011e-04 -3.662e-05  3.537e-05  9.870e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.605e-04  1.122e-03   0.500   0.6202  
## total_visit_hours_per_capita   -3.765e-05  4.911e-05  -0.767   0.4480  
## percent_under_125000            9.296e-06  3.994e-06   2.327   0.0254 *
## avg_household_size             -2.767e-04  2.348e-04  -1.178   0.2460  
## pop_density                    -2.800e-02  2.083e-02  -1.345   0.1867  
## `percent more than 1 occupant`  3.142e-05  1.720e-05   1.827   0.0755 .
## `percent more than 1 unit`     -6.712e-06  4.307e-06  -1.559   0.1274  
## avg_median_age                  2.116e-06  1.271e-05   0.167   0.8686  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002092 on 38 degrees of freedom
## Multiple R-squared:  0.3843, Adjusted R-squared:  0.2709 
## F-statistic: 3.388 on 7 and 38 DF,  p-value: 0.006573
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.210e-04 -1.500e-04 -8.115e-05  6.413e-05  1.162e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -1.376e-04  1.935e-04  -0.711    0.481
## total_visit_hours_per_capita  7.082e-05  4.449e-05   1.592    0.119
## 
## Residual standard error: 0.0002409 on 44 degrees of freedom
## Multiple R-squared:  0.05445,    Adjusted R-squared:  0.03296 
## F-statistic: 2.534 on 1 and 44 DF,  p-value: 0.1186
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.069e-04 -1.011e-04 -3.662e-05  3.537e-05  9.870e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.605e-04  1.122e-03   0.500   0.6202  
## total_visit_hours_per_capita   -3.765e-05  4.911e-05  -0.767   0.4480  
## percent_under_125000            9.296e-06  3.994e-06   2.327   0.0254 *
## avg_household_size             -2.767e-04  2.348e-04  -1.178   0.2460  
## pop_density                    -2.800e-02  2.083e-02  -1.345   0.1867  
## `percent more than 1 occupant`  3.142e-05  1.720e-05   1.827   0.0755 .
## `percent more than 1 unit`     -6.712e-06  4.307e-06  -1.559   0.1274  
## avg_median_age                  2.116e-06  1.271e-05   0.167   0.8686  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002092 on 38 degrees of freedom
## Multiple R-squared:  0.3843, Adjusted R-squared:  0.2709 
## F-statistic: 3.388 on 7 and 38 DF,  p-value: 0.006573
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.25577 -0.16791 -0.04329  0.04898  0.70632 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -0.11733    0.18328  -0.640   0.5254  
## total_visit_hours_per_capita  0.07370    0.04214   1.749   0.0873 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2282 on 44 degrees of freedom
## Multiple R-squared:  0.065,  Adjusted R-squared:  0.04375 
## F-statistic: 3.059 on 1 and 44 DF,  p-value: 0.08727
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.26149 -0.10124 -0.03189  0.04033  0.62663 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.277242   1.012563  -0.274   0.7857  
## total_visit_hours_per_capita   -0.026152   0.044327  -0.590   0.5587  
## percent_under_125000            0.006879   0.003606   1.908   0.0640 .
## avg_household_size             -0.183812   0.211978  -0.867   0.3913  
## pop_density                    -5.991990  18.798131  -0.319   0.7517  
## `percent more than 1 occupant`  0.036323   0.015522   2.340   0.0246 *
## `percent more than 1 unit`     -0.003322   0.003887  -0.855   0.3981  
## avg_median_age                  0.014647   0.011471   1.277   0.2094  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1888 on 38 degrees of freedom
## Multiple R-squared:  0.447,  Adjusted R-squared:  0.3452 
## F-statistic: 4.389 on 7 and 38 DF,  p-value: 0.001189
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.853e-04 -1.578e-04 -9.835e-05  9.926e-05  1.156e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            1.961e-04  6.903e-05   2.841  0.00678 **
## total_weighted_visit_hours_per_capita -7.970e-04  1.513e-03  -0.527  0.60098   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000247 on 44 degrees of freedom
## Multiple R-squared:  0.006268,   Adjusted R-squared:  -0.01632 
## F-statistic: 0.2775 on 1 and 44 DF,  p-value: 0.601
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.031e-04 -1.077e-04 -3.387e-05  3.551e-05  9.985e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            6.672e-04  1.121e-03   0.595   0.5553  
## total_weighted_visit_hours_per_capita -5.826e-04  1.338e-03  -0.435   0.6657  
## percent_under_125000                   8.348e-06  3.761e-06   2.220   0.0325 *
## avg_household_size                    -3.092e-04  2.335e-04  -1.325   0.1932  
## pop_density                           -2.218e-02  2.048e-02  -1.083   0.2858  
## `percent more than 1 occupant`         3.126e-05  1.729e-05   1.808   0.0785 .
## `percent more than 1 unit`            -7.152e-06  4.319e-06  -1.656   0.1060  
## avg_median_age                        -2.484e-07  1.229e-05  -0.020   0.9840  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002103 on 38 degrees of freedom
## Multiple R-squared:  0.3779, Adjusted R-squared:  0.2633 
## F-statistic: 3.298 on 7 and 38 DF,  p-value: 0.007718
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.853e-04 -1.578e-04 -9.835e-05  9.926e-05  1.156e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            1.961e-04  6.903e-05   2.841  0.00678 **
## total_weighted_visit_hours_per_capita -7.970e-04  1.513e-03  -0.527  0.60098   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000247 on 44 degrees of freedom
## Multiple R-squared:  0.006268,   Adjusted R-squared:  -0.01632 
## F-statistic: 0.2775 on 1 and 44 DF,  p-value: 0.601
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.031e-04 -1.077e-04 -3.387e-05  3.551e-05  9.985e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            6.672e-04  1.121e-03   0.595   0.5553  
## total_weighted_visit_hours_per_capita -5.826e-04  1.338e-03  -0.435   0.6657  
## percent_under_125000                   8.348e-06  3.761e-06   2.220   0.0325 *
## avg_household_size                    -3.092e-04  2.335e-04  -1.325   0.1932  
## pop_density                           -2.218e-02  2.048e-02  -1.083   0.2858  
## `percent more than 1 occupant`         3.126e-05  1.729e-05   1.808   0.0785 .
## `percent more than 1 unit`            -7.152e-06  4.319e-06  -1.656   0.1060  
## avg_median_age                        -2.484e-07  1.229e-05  -0.020   0.9840  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002103 on 38 degrees of freedom
## Multiple R-squared:  0.3779, Adjusted R-squared:  0.2633 
## F-statistic: 3.298 on 7 and 38 DF,  p-value: 0.007718
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21894 -0.18993 -0.04398  0.09694  0.69986 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                             0.2303     0.0657   3.505  0.00106 **
## total_weighted_visit_hours_per_capita  -0.8392     1.4400  -0.583  0.56301   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2351 on 44 degrees of freedom
## Multiple R-squared:  0.00766,    Adjusted R-squared:  -0.01489 
## F-statistic: 0.3396 on 1 and 44 DF,  p-value: 0.563
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.27363 -0.09398 -0.02238  0.04063  0.63420 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -0.192309   1.003872  -0.192   0.8491  
## total_weighted_visit_hours_per_capita -0.907069   1.197886  -0.757   0.4536  
## percent_under_125000                   0.006359   0.003367   1.888   0.0666 .
## avg_household_size                    -0.210455   0.209042  -1.007   0.3204  
## pop_density                           -0.604251  18.341200  -0.033   0.9739  
## `percent more than 1 occupant`         0.036133   0.015477   2.335   0.0250 *
## `percent more than 1 unit`            -0.003735   0.003867  -0.966   0.3402  
## avg_median_age                         0.013324   0.011004   1.211   0.2334  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1883 on 38 degrees of freedom
## Multiple R-squared:  0.4503, Adjusted R-squared:  0.349 
## F-statistic: 4.447 on 7 and 38 DF,  p-value: 0.001081
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.799e-04 -1.454e-04 -6.539e-05  5.991e-05  1.063e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0002126  0.0001836  -1.158   0.2555  
## total_weighted_visits_per_capita  0.0155568  0.0064319   2.419   0.0216 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002463 on 31 degrees of freedom
## Multiple R-squared:  0.1588, Adjusted R-squared:  0.1316 
## F-statistic:  5.85 on 1 and 31 DF,  p-value: 0.02164
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.760e-04 -1.107e-04 -5.147e-05  5.120e-05  8.421e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       7.211e-04  1.430e-03   0.504    0.618
## total_weighted_visits_per_capita  1.134e-02  1.056e-02   1.074    0.293
## percent_under_125000              6.925e-06  5.066e-06   1.367    0.184
## avg_household_size               -4.353e-04  3.343e-04  -1.302    0.205
## pop_density                      -4.523e-02  3.327e-02  -1.360    0.186
## `percent more than 1 occupant`    3.396e-05  2.632e-05   1.291    0.209
## `percent more than 1 unit`       -1.001e-05  5.910e-06  -1.693    0.103
## avg_median_age                    5.611e-06  1.803e-05   0.311    0.758
## 
## Residual standard error: 0.0002355 on 25 degrees of freedom
## Multiple R-squared:  0.3796, Adjusted R-squared:  0.2059 
## F-statistic: 2.185 on 7 and 25 DF,  p-value: 0.07092
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.25720 -0.12203 -0.05342  0.08143  0.60098 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       -0.2431     0.1385  -1.756 0.089025 .  
## total_weighted_visits_per_capita  17.8338     4.8515   3.676 0.000891 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1858 on 31 degrees of freedom
## Multiple R-squared:  0.3036, Adjusted R-squared:  0.2811 
## F-statistic: 13.51 on 1 and 31 DF,  p-value: 0.0008911
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.22481 -0.08521 -0.05338  0.04992  0.51964 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       0.115278   1.109917   0.104    0.918
## total_weighted_visits_per_capita 11.413257   8.200629   1.392    0.176
## percent_under_125000              0.004023   0.003933   1.023    0.316
## avg_household_size               -0.247789   0.259575  -0.955    0.349
## pop_density                      -9.008398  25.830703  -0.349    0.730
## `percent more than 1 occupant`    0.028062   0.020432   1.373    0.182
## `percent more than 1 unit`       -0.006821   0.004589  -1.486    0.150
## avg_median_age                    0.008658   0.014003   0.618    0.542
## 
## Residual standard error: 0.1829 on 25 degrees of freedom
## Multiple R-squared:  0.4558, Adjusted R-squared:  0.3035 
## F-statistic: 2.992 on 7 and 25 DF,  p-value: 0.02005
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.208e-04 -1.648e-04 -8.544e-05  7.733e-05  1.123e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -1.478e-04  3.438e-04  -0.430     0.67
## total_visit_hours_per_capita  8.255e-05  7.668e-05   1.077     0.29
## 
## Residual standard error: 0.0002636 on 31 degrees of freedom
## Multiple R-squared:  0.03604,    Adjusted R-squared:  0.004948 
## F-statistic: 1.159 on 1 and 31 DF,  p-value: 0.29
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.087e-04 -1.317e-04 -5.810e-05  4.504e-05  8.925e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     8.718e-04  1.461e-03   0.597   0.5560  
## total_visit_hours_per_capita   -5.484e-06  9.087e-05  -0.060   0.9524  
## percent_under_125000            9.217e-06  4.938e-06   1.867   0.0737 .
## avg_household_size             -4.524e-04  3.658e-04  -1.237   0.2277  
## pop_density                    -3.580e-02  3.281e-02  -1.091   0.2857  
## `percent more than 1 occupant`  4.009e-05  2.664e-05   1.505   0.1449  
## `percent more than 1 unit`     -1.025e-05  6.290e-06  -1.630   0.1157  
## avg_median_age                  6.331e-06  1.846e-05   0.343   0.7345  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002409 on 25 degrees of freedom
## Multiple R-squared:  0.3511, Adjusted R-squared:  0.1694 
## F-statistic: 1.933 on 7 and 25 DF,  p-value: 0.1065
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24124 -0.14384 -0.05353  0.09736  0.66777 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -0.12879    0.28203  -0.457    0.651
## total_visit_hours_per_capita  0.08563    0.06289   1.362    0.183
## 
## Residual standard error: 0.2162 on 31 degrees of freedom
## Multiple R-squared:  0.05643,    Adjusted R-squared:  0.02599 
## F-statistic: 1.854 on 1 and 31 DF,  p-value: 0.1831
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23669 -0.09351 -0.02600  0.02722  0.57519 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.230156   1.147363   0.201   0.8426  
## total_visit_hours_per_capita   -0.029327   0.071371  -0.411   0.6846  
## percent_under_125000            0.006698   0.003878   1.727   0.0965 .
## avg_household_size             -0.230312   0.287262  -0.802   0.4303  
## pop_density                     0.359721  25.769663   0.014   0.9890  
## `percent more than 1 occupant`  0.032976   0.020926   1.576   0.1276  
## `percent more than 1 unit`     -0.006603   0.004940  -1.337   0.1934  
## avg_median_age                  0.009644   0.014499   0.665   0.5120  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1892 on 25 degrees of freedom
## Multiple R-squared:  0.4176, Adjusted R-squared:  0.2545 
## F-statistic: 2.561 on 7 and 25 DF,  p-value: 0.03908
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.245e-04 -1.777e-04 -8.027e-05  8.696e-05  1.101e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           1.956e-04  9.596e-05   2.038   0.0502 .
## total_weighted_visit_hours_per_capita 6.532e-04  2.334e-03   0.280   0.7814  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002682 on 31 degrees of freedom
## Multiple R-squared:  0.00252,    Adjusted R-squared:  -0.02966 
## F-statistic: 0.07833 on 1 and 31 DF,  p-value: 0.7814
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.446e-04 -1.175e-04 -6.375e-05  3.918e-05  8.241e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            9.085e-04  1.425e-03   0.638   0.5294  
## total_weighted_visit_hours_per_capita  2.957e-03  2.868e-03   1.031   0.3124  
## percent_under_125000                   8.923e-06  4.642e-06   1.922   0.0660 .
## avg_household_size                    -5.370e-04  3.423e-04  -1.569   0.1292  
## pop_density                           -6.184e-02  4.089e-02  -1.512   0.1430  
## `percent more than 1 occupant`         4.807e-05  2.673e-05   1.798   0.0842 .
## `percent more than 1 unit`            -1.089e-05  5.934e-06  -1.836   0.0783 .
## avg_median_age                         9.454e-06  1.832e-05   0.516   0.6103  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002359 on 25 degrees of freedom
## Multiple R-squared:  0.3775, Adjusted R-squared:  0.2032 
## F-statistic: 2.166 on 7 and 25 DF,  p-value: 0.07319
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.27419 -0.17521 -0.00735  0.14249  0.64224 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.19452    0.07878   2.469   0.0193 *
## total_weighted_visit_hours_per_capita  1.59395    1.91591   0.832   0.4118  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2202 on 31 degrees of freedom
## Multiple R-squared:  0.02184,    Adjusted R-squared:  -0.009714 
## F-statistic: 0.6921 on 1 and 31 DF,  p-value: 0.4118
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.22115 -0.09736 -0.03393  0.02748  0.53029 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                             0.291846   1.133416   0.257   0.7989  
## total_weighted_visit_hours_per_capita   1.712544   2.281823   0.751   0.4600  
## percent_under_125000                    0.006124   0.003693   1.658   0.1098  
## avg_household_size                     -0.317342   0.272320  -1.165   0.2549  
## pop_density                           -14.582291  32.537002  -0.448   0.6579  
## `percent more than 1 occupant`          0.038973   0.021269   1.832   0.0788 .
## `percent more than 1 unit`             -0.007484   0.004721  -1.585   0.1255  
## avg_median_age                          0.011165   0.014574   0.766   0.4508  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1877 on 25 degrees of freedom
## Multiple R-squared:  0.4266, Adjusted R-squared:  0.266 
## F-statistic: 2.657 on 7 and 25 DF,  p-value: 0.03362
## 
## [1] "Cases start date: 2020-04-20"
## [1] "Visits start date: 2020-04-06"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.160e-04 -9.447e-05 -5.786e-05  2.762e-05  1.071e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -2.557e-05  1.055e-04  -0.242    0.810
## total_weighted_visits_per_capita  5.824e-03  3.750e-03   1.553    0.128
## 
## Residual standard error: 0.0002099 on 44 degrees of freedom
## Multiple R-squared:  0.05198,    Adjusted R-squared:  0.03043 
## F-statistic: 2.412 on 1 and 44 DF,  p-value: 0.1275
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.907e-04 -8.055e-05 -2.815e-05  5.874e-05  8.984e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.401e-03  9.937e-04   1.410   0.1665  
## total_weighted_visits_per_capita  3.087e-03  3.671e-03   0.841   0.4056  
## percent_under_125000              6.351e-06  3.369e-06   1.885   0.0671 .
## avg_household_size               -3.835e-04  2.069e-04  -1.853   0.0716 .
## pop_density                      -3.906e-02  1.784e-02  -2.190   0.0347 *
## `percent more than 1 occupant`    2.648e-05  1.534e-05   1.726   0.0925 .
## `percent more than 1 unit`       -7.287e-06  3.809e-06  -1.913   0.0633 .
## avg_median_age                   -1.200e-05  1.085e-05  -1.106   0.2757  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001858 on 38 degrees of freedom
## Multiple R-squared:  0.3584, Adjusted R-squared:  0.2403 
## F-statistic: 3.033 on 7 and 38 DF,  p-value: 0.01236
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.160e-04 -9.447e-05 -5.786e-05  2.762e-05  1.071e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -2.557e-05  1.055e-04  -0.242    0.810
## total_weighted_visits_per_capita  5.824e-03  3.750e-03   1.553    0.128
## 
## Residual standard error: 0.0002099 on 44 degrees of freedom
## Multiple R-squared:  0.05198,    Adjusted R-squared:  0.03043 
## F-statistic: 2.412 on 1 and 44 DF,  p-value: 0.1275
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.907e-04 -8.055e-05 -2.815e-05  5.874e-05  8.984e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.401e-03  9.937e-04   1.410   0.1665  
## total_weighted_visits_per_capita  3.087e-03  3.671e-03   0.841   0.4056  
## percent_under_125000              6.351e-06  3.369e-06   1.885   0.0671 .
## avg_household_size               -3.835e-04  2.069e-04  -1.853   0.0716 .
## pop_density                      -3.906e-02  1.784e-02  -2.190   0.0347 *
## `percent more than 1 occupant`    2.648e-05  1.534e-05   1.726   0.0925 .
## `percent more than 1 unit`       -7.287e-06  3.809e-06  -1.913   0.0633 .
## avg_median_age                   -1.200e-05  1.085e-05  -1.106   0.2757  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001858 on 38 degrees of freedom
## Multiple R-squared:  0.3584, Adjusted R-squared:  0.2403 
## F-statistic: 3.033 on 7 and 38 DF,  p-value: 0.01236
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.259448 -0.079602 -0.005861  0.062764  0.297496 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.005197   0.057043  -0.091   0.9278  
## total_weighted_visits_per_capita  4.512614   2.027683   2.226   0.0312 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1135 on 44 degrees of freedom
## Multiple R-squared:  0.1012, Adjusted R-squared:  0.08075 
## F-statistic: 4.953 on 1 and 44 DF,  p-value: 0.03122
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.19062 -0.04840 -0.01172  0.05170  0.26237 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       6.929e-02  5.552e-01   0.125    0.901
## total_weighted_visits_per_capita  2.603e+00  2.051e+00   1.269    0.212
## percent_under_125000              2.545e-03  1.882e-03   1.352    0.184
## avg_household_size               -7.300e-02  1.156e-01  -0.631    0.532
## pop_density                      -1.659e+01  9.966e+00  -1.665    0.104
## `percent more than 1 occupant`    1.112e-02  8.573e-03   1.297    0.202
## `percent more than 1 unit`       -6.594e-04  2.128e-03  -0.310    0.758
## avg_median_age                    4.448e-04  6.060e-03   0.073    0.942
## 
## Residual standard error: 0.1038 on 38 degrees of freedom
## Multiple R-squared:  0.3505, Adjusted R-squared:  0.2309 
## F-statistic:  2.93 on 7 and 38 DF,  p-value: 0.01488
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.946e-04 -9.456e-05 -5.231e-05  1.023e-05  1.104e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -5.248e-05  1.413e-04  -0.371    0.712
## total_visit_hours_per_capita  4.196e-05  3.151e-05   1.332    0.190
## 
## Residual standard error: 0.0002113 on 44 degrees of freedom
## Multiple R-squared:  0.03875,    Adjusted R-squared:  0.01691 
## F-statistic: 1.774 on 1 and 44 DF,  p-value: 0.1898
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.911e-04 -8.881e-05 -2.063e-05  5.461e-05  9.097e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.566e-03  1.009e-03   1.552   0.1288  
## total_visit_hours_per_capita    1.789e-05  3.098e-05   0.578   0.5670  
## percent_under_125000            6.403e-06  3.429e-06   1.868   0.0695 .
## avg_household_size             -4.275e-04  2.126e-04  -2.010   0.0515 .
## pop_density                    -3.786e-02  1.794e-02  -2.111   0.0414 *
## `percent more than 1 occupant`  2.889e-05  1.547e-05   1.867   0.0696 .
## `percent more than 1 unit`     -7.864e-06  3.917e-06  -2.008   0.0518 .
## avg_median_age                 -1.293e-05  1.116e-05  -1.159   0.2536  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001867 on 38 degrees of freedom
## Multiple R-squared:  0.3522, Adjusted R-squared:  0.2328 
## F-statistic: 2.951 on 7 and 38 DF,  p-value: 0.01431
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.946e-04 -9.456e-05 -5.231e-05  1.023e-05  1.104e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -5.248e-05  1.413e-04  -0.371    0.712
## total_visit_hours_per_capita  4.196e-05  3.151e-05   1.332    0.190
## 
## Residual standard error: 0.0002113 on 44 degrees of freedom
## Multiple R-squared:  0.03875,    Adjusted R-squared:  0.01691 
## F-statistic: 1.774 on 1 and 44 DF,  p-value: 0.1898
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.911e-04 -8.881e-05 -2.063e-05  5.461e-05  9.097e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.566e-03  1.009e-03   1.552   0.1288  
## total_visit_hours_per_capita    1.789e-05  3.098e-05   0.578   0.5670  
## percent_under_125000            6.403e-06  3.429e-06   1.868   0.0695 .
## avg_household_size             -4.275e-04  2.126e-04  -2.010   0.0515 .
## pop_density                    -3.786e-02  1.794e-02  -2.111   0.0414 *
## `percent more than 1 occupant`  2.889e-05  1.547e-05   1.867   0.0696 .
## `percent more than 1 unit`     -7.864e-06  3.917e-06  -2.008   0.0518 .
## avg_median_age                 -1.293e-05  1.116e-05  -1.159   0.2536  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001867 on 38 degrees of freedom
## Multiple R-squared:  0.3522, Adjusted R-squared:  0.2328 
## F-statistic: 2.951 on 7 and 38 DF,  p-value: 0.01431
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.17418 -0.06280 -0.01966  0.05412  0.32283 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -0.05146    0.07572   -0.68   0.5003  
## total_visit_hours_per_capita  0.03832    0.01688    2.27   0.0282 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1133 on 44 degrees of freedom
## Multiple R-squared:  0.1048, Adjusted R-squared:  0.08447 
## F-statistic: 5.152 on 1 and 44 DF,  p-value: 0.02817
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16946 -0.05469 -0.01044  0.04022  0.27071 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     2.328e-01  5.630e-01   0.414    0.682
## total_visit_hours_per_capita    1.977e-02  1.729e-02   1.143    0.260
## percent_under_125000            2.461e-03  1.914e-03   1.286    0.206
## avg_household_size             -1.174e-01  1.187e-01  -0.989    0.329
## pop_density                    -1.543e+01  1.001e+01  -1.542    0.131
## `percent more than 1 occupant`  1.345e-02  8.637e-03   1.558    0.128
## `percent more than 1 unit`     -1.274e-03  2.187e-03  -0.583    0.564
## avg_median_age                 -7.165e-04  6.227e-03  -0.115    0.909
## 
## Residual standard error: 0.1042 on 38 degrees of freedom
## Multiple R-squared:  0.3455, Adjusted R-squared:  0.2249 
## F-statistic: 2.866 on 7 and 38 DF,  p-value: 0.0167
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.534e-04 -1.173e-04 -6.485e-05  2.662e-05  1.110e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            1.575e-04  5.172e-05   3.046  0.00391 **
## total_weighted_visit_hours_per_capita -5.368e-04  8.298e-04  -0.647  0.52106   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002145 on 44 degrees of freedom
## Multiple R-squared:  0.009421,   Adjusted R-squared:  -0.01309 
## F-statistic: 0.4185 on 1 and 44 DF,  p-value: 0.5211
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.999e-04 -8.842e-05 -2.249e-05  5.515e-05  9.083e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            1.433e-03  9.977e-04   1.437   0.1590  
## total_weighted_visit_hours_per_capita  4.460e-04  8.053e-04   0.554   0.5829  
## percent_under_125000                   7.098e-06  3.345e-06   2.122   0.0404 *
## avg_household_size                    -3.925e-04  2.075e-04  -1.892   0.0662 .
## pop_density                           -4.067e-02  1.836e-02  -2.215   0.0328 *
## `percent more than 1 occupant`         2.777e-05  1.535e-05   1.809   0.0784 .
## `percent more than 1 unit`            -7.451e-06  3.829e-06  -1.946   0.0591 .
## avg_median_age                        -1.175e-05  1.090e-05  -1.078   0.2879  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001868 on 38 degrees of freedom
## Multiple R-squared:  0.3517, Adjusted R-squared:  0.2323 
## F-statistic: 2.945 on 7 and 38 DF,  p-value: 0.01447
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.534e-04 -1.173e-04 -6.485e-05  2.662e-05  1.110e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            1.575e-04  5.172e-05   3.046  0.00391 **
## total_weighted_visit_hours_per_capita -5.368e-04  8.298e-04  -0.647  0.52106   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002145 on 44 degrees of freedom
## Multiple R-squared:  0.009421,   Adjusted R-squared:  -0.01309 
## F-statistic: 0.4185 on 1 and 44 DF,  p-value: 0.5211
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.999e-04 -8.842e-05 -2.249e-05  5.515e-05  9.083e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            1.433e-03  9.977e-04   1.437   0.1590  
## total_weighted_visit_hours_per_capita  4.460e-04  8.053e-04   0.554   0.5829  
## percent_under_125000                   7.098e-06  3.345e-06   2.122   0.0404 *
## avg_household_size                    -3.925e-04  2.075e-04  -1.892   0.0662 .
## pop_density                           -4.067e-02  1.836e-02  -2.215   0.0328 *
## `percent more than 1 occupant`         2.777e-05  1.535e-05   1.809   0.0784 .
## `percent more than 1 unit`            -7.451e-06  3.829e-06  -1.946   0.0591 .
## avg_median_age                        -1.175e-05  1.090e-05  -1.078   0.2879  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001868 on 38 degrees of freedom
## Multiple R-squared:  0.3517, Adjusted R-squared:  0.2323 
## F-statistic: 2.945 on 7 and 38 DF,  p-value: 0.01447
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12643 -0.09733 -0.02305  0.06137  0.32664 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.12830    0.02876   4.461 5.59e-05 ***
## total_weighted_visit_hours_per_capita -0.24617    0.46152  -0.533    0.596    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1193 on 44 degrees of freedom
## Multiple R-squared:  0.006424,   Adjusted R-squared:  -0.01616 
## F-statistic: 0.2845 on 1 and 44 DF,  p-value: 0.5964
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18161 -0.05197 -0.02178  0.04583  0.27318 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            1.114e-01  5.648e-01   0.197    0.845
## total_weighted_visit_hours_per_capita  1.948e-01  4.559e-01   0.427    0.672
## percent_under_125000                   3.091e-03  1.894e-03   1.633    0.111
## avg_household_size                    -8.349e-02  1.175e-01  -0.711    0.482
## pop_density                           -1.705e+01  1.039e+01  -1.640    0.109
## `percent more than 1 occupant`         1.220e-02  8.691e-03   1.403    0.169
## `percent more than 1 unit`            -7.687e-04  2.168e-03  -0.355    0.725
## avg_median_age                         7.478e-04  6.168e-03   0.121    0.904
## 
## Residual standard error: 0.1057 on 38 degrees of freedom
## Multiple R-squared:  0.3262, Adjusted R-squared:  0.2021 
## F-statistic: 2.628 on 7 and 38 DF,  p-value: 0.02566
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.846e-04 -1.128e-04 -4.541e-05  6.935e-05  9.820e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0001760  0.0001679  -1.048   0.3024  
## total_weighted_visits_per_capita  0.0130533  0.0060444   2.160   0.0384 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002195 on 32 degrees of freedom
## Multiple R-squared:  0.1272, Adjusted R-squared:  0.09993 
## F-statistic: 4.664 on 1 and 32 DF,  p-value: 0.03841
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0002411 -0.0001159 -0.0000340  0.0001021  0.0006212 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       1.666e-03  1.111e-03   1.500  0.14576   
## total_weighted_visits_per_capita  1.963e-02  6.969e-03   2.817  0.00914 **
## percent_under_125000              5.660e-06  3.672e-06   1.541  0.13532   
## avg_household_size               -5.956e-04  2.541e-04  -2.344  0.02702 * 
## pop_density                      -8.802e-02  2.820e-02  -3.122  0.00437 **
## `percent more than 1 occupant`    3.369e-05  1.971e-05   1.710  0.09924 . 
## `percent more than 1 unit`       -8.736e-06  4.662e-06  -1.874  0.07221 . 
## avg_median_age                   -9.654e-06  1.426e-05  -0.677  0.50430   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001863 on 26 degrees of freedom
## Multiple R-squared:  0.4887, Adjusted R-squared:  0.3511 
## F-statistic:  3.55 on 7 and 26 DF,  p-value: 0.008245
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.239575 -0.056776 -0.001016  0.068885  0.223811 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                      -0.11419    0.07142  -1.599 0.119683    
## total_weighted_visits_per_capita 10.02549    2.57152   3.899 0.000465 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09336 on 32 degrees of freedom
## Multiple R-squared:  0.322,  Adjusted R-squared:  0.3008 
## F-statistic:  15.2 on 1 and 32 DF,  p-value: 0.0004652
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21428 -0.03664  0.01470  0.03771  0.17126 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                        0.584054   0.526294   1.110  0.27727   
## total_weighted_visits_per_capita  12.018861   3.301728   3.640  0.00119 **
## percent_under_125000               0.001309   0.001740   0.753  0.45846   
## avg_household_size                -0.161299   0.120404  -1.340  0.19195   
## pop_density                      -32.447989  13.358316  -2.429  0.02235 * 
## `percent more than 1 occupant`     0.007151   0.009337   0.766  0.45060   
## `percent more than 1 unit`        -0.001196   0.002209  -0.542  0.59264   
## avg_median_age                    -0.007760   0.006754  -1.149  0.26107   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08828 on 26 degrees of freedom
## Multiple R-squared:  0.5075, Adjusted R-squared:  0.3749 
## F-statistic: 3.828 on 7 and 26 DF,  p-value: 0.005494
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.169e-04 -1.202e-04 -6.552e-05  3.132e-05  1.066e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -6.724e-05  2.630e-04  -0.256    0.800
## total_visit_hours_per_capita  5.386e-05  5.725e-05   0.941    0.354
## 
## Residual standard error: 0.0002317 on 32 degrees of freedom
## Multiple R-squared:  0.02691,    Adjusted R-squared:  -0.003494 
## F-statistic: 0.8851 on 1 and 32 DF,  p-value: 0.3539
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.496e-04 -1.040e-04 -1.543e-05  4.090e-05  7.669e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     2.105e-03  1.240e-03   1.698   0.1015  
## total_visit_hours_per_capita    7.909e-05  6.230e-05   1.270   0.2155  
## percent_under_125000            6.348e-06  4.101e-06   1.548   0.1338  
## avg_household_size             -7.199e-04  3.042e-04  -2.366   0.0257 *
## pop_density                    -5.627e-02  2.790e-02  -2.017   0.0542 .
## `percent more than 1 occupant`  4.423e-05  2.277e-05   1.943   0.0630 .
## `percent more than 1 unit`     -1.198e-05  5.523e-06  -2.169   0.0394 *
## avg_median_age                 -9.344e-06  1.581e-05  -0.591   0.5597  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002066 on 26 degrees of freedom
## Multiple R-squared:  0.3717, Adjusted R-squared:  0.2025 
## F-statistic: 2.197 on 7 and 26 DF,  p-value: 0.06811
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.19457 -0.06145 -0.01043  0.04238  0.28938 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -0.07371    0.12188  -0.605   0.5496  
## total_visit_hours_per_capita  0.05084    0.02653   1.916   0.0643 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1074 on 32 degrees of freedom
## Multiple R-squared:  0.1029, Adjusted R-squared:  0.0749 
## F-statistic: 3.672 on 1 and 32 DF,  p-value: 0.06431
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.156803 -0.054575 -0.005653  0.044071  0.218144 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.840063   0.628448   1.337    0.193
## total_visit_hours_per_capita     0.043694   0.031570   1.384    0.178
## percent_under_125000             0.001795   0.002078   0.864    0.396
## avg_household_size              -0.228660   0.154162  -1.483    0.150
## pop_density                    -12.644551  14.138590  -0.894    0.379
## `percent more than 1 occupant`   0.013111   0.011537   1.136    0.266
## `percent more than 1 unit`      -0.003033   0.002799  -1.084    0.289
## avg_median_age                  -0.007517   0.008013  -0.938    0.357
## 
## Residual standard error: 0.1047 on 26 degrees of freedom
## Multiple R-squared:  0.3075, Adjusted R-squared:  0.1211 
## F-statistic:  1.65 on 7 and 26 DF,  p-value: 0.1659
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.037e-04 -1.237e-04 -7.448e-05  5.743e-05  1.053e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           1.505e-04  7.584e-05   1.984   0.0558 .
## total_weighted_visit_hours_per_capita 6.553e-04  1.571e-03   0.417   0.6794  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002343 on 32 degrees of freedom
## Multiple R-squared:  0.005406,   Adjusted R-squared:  -0.02567 
## F-statistic: 0.1739 on 1 and 32 DF,  p-value: 0.6794
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.724e-04 -9.820e-05 -1.168e-05  4.989e-05  6.419e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            2.127e-03  1.134e-03   1.876  0.07194 . 
## total_weighted_visit_hours_per_capita  4.420e-03  1.717e-03   2.575  0.01607 * 
## percent_under_125000                   8.441e-06  3.710e-06   2.275  0.03137 * 
## avg_household_size                    -7.348e-04  2.665e-04  -2.757  0.01052 * 
## pop_density                           -9.517e-02  3.073e-02  -3.097  0.00464 **
## `percent more than 1 occupant`         5.139e-05  2.095e-05   2.453  0.02119 * 
## `percent more than 1 unit`            -1.192e-05  4.840e-06  -2.463  0.02070 * 
## avg_median_age                        -6.782e-06  1.455e-05  -0.466  0.64493   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.00019 on 26 degrees of freedom
## Multiple R-squared:  0.4683, Adjusted R-squared:  0.3251 
## F-statistic: 3.271 on 7 and 26 DF,  p-value: 0.01253
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.20835 -0.05968 -0.02193  0.03946  0.26898 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.10512    0.03507   2.998  0.00523 **
## total_weighted_visit_hours_per_capita  1.27127    0.72657   1.750  0.08976 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1083 on 32 degrees of freedom
## Multiple R-squared:  0.08731,    Adjusted R-squared:  0.05879 
## F-statistic: 3.061 on 1 and 32 DF,  p-value: 0.08976
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.152426 -0.064910 -0.001499  0.026229  0.216913 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                             0.843199   0.575985   1.464   0.1552  
## total_weighted_visit_hours_per_capita   2.277997   0.872112   2.612   0.0148 *
## percent_under_125000                    0.002915   0.001885   1.546   0.1341  
## avg_household_size                     -0.230923   0.135386  -1.706   0.1000 .
## pop_density                           -32.466293  15.609841  -2.080   0.0475 *
## `percent more than 1 occupant`          0.016496   0.010643   1.550   0.1332  
## `percent more than 1 unit`             -0.002911   0.002459  -1.184   0.2472  
## avg_median_age                         -0.006164   0.007390  -0.834   0.4119  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09654 on 26 degrees of freedom
## Multiple R-squared:  0.4111, Adjusted R-squared:  0.2525 
## F-statistic: 2.592 on 7 and 26 DF,  p-value: 0.03605
## 
## [1] "Cases start date: 2020-04-27"
## [1] "Visits start date: 2020-04-13"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.108e-04 -9.203e-05 -4.102e-05  2.020e-05  5.399e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -5.700e-05  8.281e-05  -0.688   0.4948  
## total_weighted_visits_per_capita  5.105e-03  2.146e-03   2.379   0.0218 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001652 on 44 degrees of freedom
## Multiple R-squared:  0.1139, Adjusted R-squared:  0.09381 
## F-statistic: 5.659 on 1 and 44 DF,  p-value: 0.02178
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.968e-04 -9.040e-05  1.873e-06  4.186e-05  2.832e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -4.194e-04  6.553e-04  -0.640   0.5260  
## total_weighted_visits_per_capita  3.024e-03  1.934e-03   1.564   0.1261  
## percent_under_125000              1.946e-06  2.306e-06   0.844   0.4039  
## avg_household_size               -1.213e-05  1.378e-04  -0.088   0.9303  
## pop_density                      -7.121e-03  1.237e-02  -0.576   0.5682  
## `percent more than 1 occupant`    2.365e-05  1.024e-05   2.309   0.0265 *
## `percent more than 1 unit`       -1.221e-07  2.561e-06  -0.048   0.9622  
## avg_median_age                    5.489e-06  7.462e-06   0.736   0.4665  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001229 on 38 degrees of freedom
## Multiple R-squared:  0.5763, Adjusted R-squared:  0.4982 
## F-statistic: 7.383 on 7 and 38 DF,  p-value: 1.339e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.108e-04 -9.203e-05 -4.102e-05  2.020e-05  5.399e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -5.700e-05  8.281e-05  -0.688   0.4948  
## total_weighted_visits_per_capita  5.105e-03  2.146e-03   2.379   0.0218 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001652 on 44 degrees of freedom
## Multiple R-squared:  0.1139, Adjusted R-squared:  0.09381 
## F-statistic: 5.659 on 1 and 44 DF,  p-value: 0.02178
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.968e-04 -9.040e-05  1.873e-06  4.186e-05  2.832e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -4.194e-04  6.553e-04  -0.640   0.5260  
## total_weighted_visits_per_capita  3.024e-03  1.934e-03   1.564   0.1261  
## percent_under_125000              1.946e-06  2.306e-06   0.844   0.4039  
## avg_household_size               -1.213e-05  1.378e-04  -0.088   0.9303  
## pop_density                      -7.121e-03  1.237e-02  -0.576   0.5682  
## `percent more than 1 occupant`    2.365e-05  1.024e-05   2.309   0.0265 *
## `percent more than 1 unit`       -1.221e-07  2.561e-06  -0.048   0.9622  
## avg_median_age                    5.489e-06  7.462e-06   0.736   0.4665  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001229 on 38 degrees of freedom
## Multiple R-squared:  0.5763, Adjusted R-squared:  0.4982 
## F-statistic: 7.383 on 7 and 38 DF,  p-value: 1.339e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.20990 -0.09116 -0.03263  0.04608  0.59307 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.05003    0.07667  -0.653   0.5174  
## total_weighted_visits_per_capita  4.95543    1.98709   2.494   0.0165 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.153 on 44 degrees of freedom
## Multiple R-squared:  0.1238, Adjusted R-squared:  0.1039 
## F-statistic: 6.219 on 1 and 44 DF,  p-value: 0.01647
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15722 -0.07364 -0.04264  0.02115  0.60423 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.6563136  0.8438378  -0.778   0.4415  
## total_weighted_visits_per_capita  4.7786130  2.4904570   1.919   0.0625 .
## percent_under_125000              0.0004154  0.0029692   0.140   0.8895  
## avg_household_size                0.1233010  0.1775102   0.695   0.4915  
## pop_density                      -1.4898474 15.9294098  -0.094   0.9260  
## `percent more than 1 occupant`    0.0003050  0.0131872   0.023   0.9817  
## `percent more than 1 unit`        0.0017696  0.0032982   0.537   0.5947  
## avg_median_age                    0.0044619  0.0096100   0.464   0.6451  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1583 on 38 degrees of freedom
## Multiple R-squared:  0.1893, Adjusted R-squared:  0.04001 
## F-statistic: 1.268 on 7 and 38 DF,  p-value: 0.292
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.580e-04 -8.768e-05 -4.010e-05  2.505e-05  5.361e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -1.157e-04  1.012e-04  -1.143   0.2593  
## total_visit_hours_per_capita  4.661e-05  1.855e-05   2.513   0.0157 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001641 on 44 degrees of freedom
## Multiple R-squared:  0.1255, Adjusted R-squared:  0.1056 
## F-statistic: 6.313 on 1 and 44 DF,  p-value: 0.01572
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.040e-04 -7.943e-05 -1.154e-05  5.386e-05  2.773e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -4.429e-04  6.692e-04  -0.662   0.5121  
## total_visit_hours_per_capita    1.442e-05  1.589e-05   0.907   0.3701  
## percent_under_125000            2.460e-06  2.336e-06   1.053   0.2990  
## avg_household_size             -3.327e-05  1.397e-04  -0.238   0.8130  
## pop_density                    -1.762e-03  1.205e-02  -0.146   0.8845  
## `percent more than 1 occupant`  2.502e-05  1.040e-05   2.405   0.0211 *
## `percent more than 1 unit`     -5.794e-07  2.588e-06  -0.224   0.8240  
## avg_median_age                  7.540e-06  7.434e-06   1.014   0.3169  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001255 on 38 degrees of freedom
## Multiple R-squared:  0.5586, Adjusted R-squared:  0.4772 
## F-statistic: 6.869 on 7 and 38 DF,  p-value: 2.716e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.580e-04 -8.768e-05 -4.010e-05  2.505e-05  5.361e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -1.157e-04  1.012e-04  -1.143   0.2593  
## total_visit_hours_per_capita  4.661e-05  1.855e-05   2.513   0.0157 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001641 on 44 degrees of freedom
## Multiple R-squared:  0.1255, Adjusted R-squared:  0.1056 
## F-statistic: 6.313 on 1 and 44 DF,  p-value: 0.01572
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.040e-04 -7.943e-05 -1.154e-05  5.386e-05  2.773e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -4.429e-04  6.692e-04  -0.662   0.5121  
## total_visit_hours_per_capita    1.442e-05  1.589e-05   0.907   0.3701  
## percent_under_125000            2.460e-06  2.336e-06   1.053   0.2990  
## avg_household_size             -3.327e-05  1.397e-04  -0.238   0.8130  
## pop_density                    -1.762e-03  1.205e-02  -0.146   0.8845  
## `percent more than 1 occupant`  2.502e-05  1.040e-05   2.405   0.0211 *
## `percent more than 1 unit`     -5.794e-07  2.588e-06  -0.224   0.8240  
## avg_median_age                  7.540e-06  7.434e-06   1.014   0.3169  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001255 on 38 degrees of freedom
## Multiple R-squared:  0.5586, Adjusted R-squared:  0.4772 
## F-statistic: 6.869 on 7 and 38 DF,  p-value: 2.716e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.27795 -0.08189 -0.04214  0.04006  0.56878 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                  -0.15022    0.09069  -1.656  0.10474   
## total_visit_hours_per_capita  0.05341    0.01662   3.213  0.00246 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1471 on 44 degrees of freedom
## Multiple R-squared:   0.19,  Adjusted R-squared:  0.1716 
## F-statistic: 10.32 on 1 and 44 DF,  p-value: 0.002459
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23620 -0.07680 -0.03947  0.03646  0.58068 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.7289674  0.8234560  -0.885   0.3816  
## total_visit_hours_per_capita    0.0471865  0.0195549   2.413   0.0208 *
## percent_under_125000            0.0001731  0.0028750   0.060   0.9523  
## avg_household_size              0.1077167  0.1718369   0.627   0.5345  
## pop_density                     6.1635294 14.8249062   0.416   0.6799  
## `percent more than 1 occupant`  0.0004064  0.0127989   0.032   0.9748  
## `percent more than 1 unit`      0.0014935  0.0031843   0.469   0.6417  
## avg_median_age                  0.0056752  0.0091473   0.620   0.5387  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1544 on 38 degrees of freedom
## Multiple R-squared:  0.2289, Adjusted R-squared:  0.08691 
## F-statistic: 1.612 on 7 and 38 DF,  p-value: 0.1618
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.709e-04 -1.206e-04 -4.459e-05  3.916e-05  5.501e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           1.128e-04  4.487e-05   2.515   0.0156 *
## total_weighted_visit_hours_per_capita 2.974e-04  5.920e-04   0.502   0.6180  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000175 on 44 degrees of freedom
## Multiple R-squared:  0.005701,   Adjusted R-squared:  -0.0169 
## F-statistic: 0.2523 on 1 and 44 DF,  p-value: 0.618
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.949e-04 -8.224e-05 -1.706e-05  4.882e-05  2.760e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -4.933e-04  6.693e-04  -0.737   0.4656  
## total_weighted_visit_hours_per_capita  5.084e-04  4.736e-04   1.073   0.2898  
## percent_under_125000                   2.809e-06  2.238e-06   1.255   0.2172  
## avg_household_size                    -1.845e-05  1.406e-04  -0.131   0.8963  
## pop_density                           -5.543e-03  1.263e-02  -0.439   0.6632  
## `percent more than 1 occupant`         2.536e-05  1.030e-05   2.461   0.0185 *
## `percent more than 1 unit`            -2.998e-07  2.610e-06  -0.115   0.9092  
## avg_median_age                         8.283e-06  7.297e-06   1.135   0.2634  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000125 on 38 degrees of freedom
## Multiple R-squared:  0.5623, Adjusted R-squared:  0.4816 
## F-statistic: 6.973 on 7 and 38 DF,  p-value: 2.348e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.709e-04 -1.206e-04 -4.459e-05  3.916e-05  5.501e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           1.128e-04  4.487e-05   2.515   0.0156 *
## total_weighted_visit_hours_per_capita 2.974e-04  5.920e-04   0.502   0.6180  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000175 on 44 degrees of freedom
## Multiple R-squared:  0.005701,   Adjusted R-squared:  -0.0169 
## F-statistic: 0.2523 on 1 and 44 DF,  p-value: 0.618
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.949e-04 -8.224e-05 -1.706e-05  4.882e-05  2.760e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -4.933e-04  6.693e-04  -0.737   0.4656  
## total_weighted_visit_hours_per_capita  5.084e-04  4.736e-04   1.073   0.2898  
## percent_under_125000                   2.809e-06  2.238e-06   1.255   0.2172  
## avg_household_size                    -1.845e-05  1.406e-04  -0.131   0.8963  
## pop_density                           -5.543e-03  1.263e-02  -0.439   0.6632  
## `percent more than 1 occupant`         2.536e-05  1.030e-05   2.461   0.0185 *
## `percent more than 1 unit`            -2.998e-07  2.610e-06  -0.115   0.9092  
## avg_median_age                         8.283e-06  7.297e-06   1.135   0.2634  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000125 on 38 degrees of freedom
## Multiple R-squared:  0.5623, Adjusted R-squared:  0.4816 
## F-statistic: 6.973 on 7 and 38 DF,  p-value: 2.348e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.28298 -0.10006 -0.01917  0.04123  0.57110 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.06282    0.03987   1.576   0.1222  
## total_weighted_visit_hours_per_capita  1.12716    0.52604   2.143   0.0377 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1555 on 44 degrees of freedom
## Multiple R-squared:  0.09449,    Adjusted R-squared:  0.07391 
## F-statistic: 4.591 on 1 and 44 DF,  p-value: 0.03771
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.28267 -0.06795 -0.03376  0.04832  0.59563 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -0.851454   0.831576  -1.024   0.3124  
## total_weighted_visit_hours_per_capita  1.360892   0.588473   2.313   0.0263 *
## percent_under_125000                   0.001478   0.002781   0.532   0.5982  
## avg_household_size                     0.141098   0.174657   0.808   0.4242  
## pop_density                           -3.669692  15.687115  -0.234   0.8163  
## `percent more than 1 occupant`         0.002039   0.012802   0.159   0.8743  
## `percent more than 1 unit`             0.002085   0.003243   0.643   0.5242  
## avg_median_age                         0.008381   0.009066   0.924   0.3611  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1553 on 38 degrees of freedom
## Multiple R-squared:  0.2205, Adjusted R-squared:  0.07691 
## F-statistic: 1.536 on 7 and 38 DF,  p-value: 0.1849
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.409e-04 -8.808e-05 -5.227e-05  1.308e-05  5.093e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -8.635e-05  1.033e-04  -0.836   0.4094  
## total_weighted_visits_per_capita  6.803e-03  2.725e-03   2.496   0.0179 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001702 on 32 degrees of freedom
## Multiple R-squared:  0.163,  Adjusted R-squared:  0.1368 
## F-statistic: 6.231 on 1 and 32 DF,  p-value: 0.0179
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.087e-04 -8.185e-05  1.174e-05  5.450e-05  2.880e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -3.413e-04  7.436e-04  -0.459    0.650
## total_weighted_visits_per_capita  1.132e-03  2.971e-03   0.381    0.706
## percent_under_125000              2.250e-06  2.565e-06   0.877    0.388
## avg_household_size                1.458e-05  1.734e-04   0.084    0.934
## pop_density                      -7.720e-03  1.951e-02  -0.396    0.696
## `percent more than 1 occupant`    2.229e-05  1.335e-05   1.670    0.107
## `percent more than 1 unit`        1.335e-06  3.116e-06   0.428    0.672
## avg_median_age                    1.509e-06  9.528e-06   0.158    0.875
## 
## Residual standard error: 0.0001246 on 26 degrees of freedom
## Multiple R-squared:  0.6356, Adjusted R-squared:  0.5375 
## F-statistic: 6.478 on 7 and 26 DF,  p-value: 0.0001789
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15232 -0.06393 -0.02263  0.04377  0.24975 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -0.01803    0.05847  -0.308  0.75982   
## total_weighted_visits_per_capita  4.31239    1.54267   2.795  0.00869 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09633 on 32 degrees of freedom
## Multiple R-squared:  0.1963, Adjusted R-squared:  0.1712 
## F-statistic: 7.814 on 1 and 32 DF,  p-value: 0.008691
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10337 -0.04721 -0.01629  0.03501  0.25055 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -0.1966894  0.5024281  -0.391    0.699
## total_weighted_visits_per_capita  1.5690820  2.0075406   0.782    0.442
## percent_under_125000             -0.0003432  0.0017332  -0.198    0.845
## avg_household_size                0.0648623  0.1171485   0.554    0.585
## pop_density                      -0.5189842 13.1825054  -0.039    0.969
## `percent more than 1 occupant`    0.0061973  0.0090221   0.687    0.498
## `percent more than 1 unit`        0.0027070  0.0021056   1.286    0.210
## avg_median_age                   -0.0010842  0.0064378  -0.168    0.868
## 
## Residual standard error: 0.08418 on 26 degrees of freedom
## Multiple R-squared:  0.5014, Adjusted R-squared:  0.3671 
## F-statistic: 3.735 on 7 and 26 DF,  p-value: 0.006289
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.942e-04 -9.924e-05 -3.502e-05  4.020e-05  5.058e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -2.342e-04  1.924e-04  -1.217   0.2324  
## total_visit_hours_per_capita  7.262e-05  3.492e-05   2.079   0.0457 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001746 on 32 degrees of freedom
## Multiple R-squared:  0.119,  Adjusted R-squared:  0.09151 
## F-statistic: 4.324 on 1 and 32 DF,  p-value: 0.04568
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.256e-04 -8.322e-05  3.001e-06  5.720e-05  2.954e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -2.373e-04  8.022e-04  -0.296    0.770
## total_visit_hours_per_capita   -1.325e-05  3.186e-05  -0.416    0.681
## percent_under_125000            2.723e-06  2.443e-06   1.115    0.275
## avg_household_size              1.529e-05  1.724e-04   0.089    0.930
## pop_density                    -1.947e-03  1.716e-02  -0.113    0.911
## `percent more than 1 occupant`  2.236e-05  1.334e-05   1.676    0.106
## `percent more than 1 unit`      1.145e-06  3.169e-06   0.361    0.721
## avg_median_age                  7.041e-07  9.723e-06   0.072    0.943
## 
## Residual standard error: 0.0001245 on 26 degrees of freedom
## Multiple R-squared:  0.636,  Adjusted R-squared:  0.538 
## F-statistic: 6.489 on 7 and 26 DF,  p-value: 0.0001767
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11943 -0.06830 -0.03497  0.04362  0.25952 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -0.09182    0.11098  -0.827   0.4142  
## total_visit_hours_per_capita  0.04237    0.02015   2.103   0.0434 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1007 on 32 degrees of freedom
## Multiple R-squared:  0.1215, Adjusted R-squared:  0.094 
## F-statistic: 4.424 on 1 and 32 DF,  p-value: 0.04339
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11384 -0.04905 -0.01852  0.03255  0.24717 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.2330274  0.5486577  -0.425    0.675
## total_visit_hours_per_capita    0.0002677  0.0217916   0.012    0.990
## percent_under_125000            0.0001049  0.0016711   0.063    0.950
## avg_household_size              0.0835244  0.1179221   0.708    0.485
## pop_density                     4.8734179 11.7370703   0.415    0.681
## `percent more than 1 occupant`  0.0050000  0.0091242   0.548    0.588
## `percent more than 1 unit`      0.0028006  0.0021676   1.292    0.208
## avg_median_age                 -0.0010520  0.0066498  -0.158    0.876
## 
## Residual standard error: 0.08516 on 26 degrees of freedom
## Multiple R-squared:  0.4896, Adjusted R-squared:  0.3522 
## F-statistic: 3.564 on 7 and 26 DF,  p-value: 0.008086
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.092e-04 -1.002e-04 -5.690e-05  2.925e-05  5.147e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0.0001129  0.0000680   1.660    0.107
## total_weighted_visit_hours_per_capita 0.0009110  0.0011405   0.799    0.430
## 
## Residual standard error: 0.0001842 on 32 degrees of freedom
## Multiple R-squared:  0.01955,    Adjusted R-squared:  -0.01109 
## F-statistic: 0.638 on 1 and 32 DF,  p-value: 0.4303
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.055e-04 -8.027e-05  1.690e-05  5.112e-05  2.847e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -4.110e-04  7.458e-04  -0.551    0.586
## total_weighted_visit_hours_per_capita  4.415e-04  9.294e-04   0.475    0.639
## percent_under_125000                   2.587e-06  2.415e-06   1.071    0.294
## avg_household_size                     3.490e-05  1.702e-04   0.205    0.839
## pop_density                           -8.348e-03  1.912e-02  -0.437    0.666
## `percent more than 1 occupant`         2.115e-05  1.316e-05   1.607    0.120
## `percent more than 1 unit`             1.678e-06  3.162e-06   0.531    0.600
## avg_median_age                         1.611e-06  9.515e-06   0.169    0.867
## 
## Residual standard error: 0.0001244 on 26 degrees of freedom
## Multiple R-squared:  0.6367, Adjusted R-squared:  0.5389 
## F-statistic:  6.51 on 7 and 26 DF,  p-value: 0.0001726
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14550 -0.07084 -0.01338  0.02785  0.25064 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.10028    0.03892   2.577   0.0148 *
## total_weighted_visit_hours_per_capita  0.72880    0.65275   1.117   0.2725  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1054 on 32 degrees of freedom
## Multiple R-squared:  0.0375, Adjusted R-squared:  0.007417 
## F-statistic: 1.247 on 1 and 32 DF,  p-value: 0.2725
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11073 -0.04684 -0.01873  0.03423  0.25444 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -0.2652771  0.5078063  -0.522    0.606
## total_weighted_visit_hours_per_capita  0.3395106  0.6328168   0.537    0.596
## percent_under_125000                   0.0001171  0.0016444   0.071    0.944
## avg_household_size                     0.0886854  0.1158999   0.765    0.451
## pop_density                            1.4147834 13.0200350   0.109    0.914
## `percent more than 1 occupant`         0.0047921  0.0089596   0.535    0.597
## `percent more than 1 unit`             0.0030101  0.0021529   1.398    0.174
## avg_median_age                        -0.0009987  0.0064785  -0.154    0.879
## 
## Residual standard error: 0.08469 on 26 degrees of freedom
## Multiple R-squared:  0.4952, Adjusted R-squared:  0.3593 
## F-statistic: 3.644 on 7 and 26 DF,  p-value: 0.00718
## 
## [1] "Cases start date: 2020-05-04"
## [1] "Visits start date: 2020-04-20"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.695e-04 -1.087e-04 -4.533e-05  7.530e-05  7.081e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -9.606e-05  9.527e-05  -1.008  0.31883   
## total_weighted_visits_per_capita  7.783e-03  2.876e-03   2.706  0.00965 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001943 on 44 degrees of freedom
## Multiple R-squared:  0.1427, Adjusted R-squared:  0.1232 
## F-statistic: 7.324 on 1 and 44 DF,  p-value: 0.009648
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.334e-04 -9.061e-05  6.589e-06  6.752e-05  3.128e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -7.042e-04  6.707e-04  -1.050  0.30034   
## total_weighted_visits_per_capita  6.184e-03  2.184e-03   2.831  0.00738 **
## percent_under_125000              1.519e-06  2.356e-06   0.644  0.52316   
## avg_household_size                3.873e-05  1.426e-04   0.272  0.78732   
## pop_density                      -4.324e-03  1.202e-02  -0.360  0.72100   
## `percent more than 1 occupant`    2.833e-05  1.024e-05   2.767  0.00868 **
## `percent more than 1 unit`        7.735e-07  2.689e-06   0.288  0.77517   
## avg_median_age                    6.232e-06  7.163e-06   0.870  0.38977   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001228 on 38 degrees of freedom
## Multiple R-squared:  0.704,  Adjusted R-squared:  0.6495 
## F-statistic: 12.91 on 7 and 38 DF,  p-value: 2.326e-08
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.695e-04 -1.087e-04 -4.533e-05  7.530e-05  7.081e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -9.606e-05  9.527e-05  -1.008  0.31883   
## total_weighted_visits_per_capita  7.783e-03  2.876e-03   2.706  0.00965 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001943 on 44 degrees of freedom
## Multiple R-squared:  0.1427, Adjusted R-squared:  0.1232 
## F-statistic: 7.324 on 1 and 44 DF,  p-value: 0.009648
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.334e-04 -9.061e-05  6.589e-06  6.752e-05  3.128e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -7.042e-04  6.707e-04  -1.050  0.30034   
## total_weighted_visits_per_capita  6.184e-03  2.184e-03   2.831  0.00738 **
## percent_under_125000              1.519e-06  2.356e-06   0.644  0.52316   
## avg_household_size                3.873e-05  1.426e-04   0.272  0.78732   
## pop_density                      -4.324e-03  1.202e-02  -0.360  0.72100   
## `percent more than 1 occupant`    2.833e-05  1.024e-05   2.767  0.00868 **
## `percent more than 1 unit`        7.735e-07  2.689e-06   0.288  0.77517   
## avg_median_age                    6.232e-06  7.163e-06   0.870  0.38977   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001228 on 38 degrees of freedom
## Multiple R-squared:  0.704,  Adjusted R-squared:  0.6495 
## F-statistic: 12.91 on 7 and 38 DF,  p-value: 2.326e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.182243 -0.070350 -0.007044  0.061709  0.263719 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -0.05401    0.04930  -1.095  0.27927   
## total_weighted_visits_per_capita  5.02943    1.48825   3.379  0.00153 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1005 on 44 degrees of freedom
## Multiple R-squared:  0.2061, Adjusted R-squared:  0.188 
## F-statistic: 11.42 on 1 and 44 DF,  p-value: 0.001531
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.135525 -0.058025 -0.005026  0.064733  0.155710 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -0.823934   0.445209  -1.851  0.07200 . 
## total_weighted_visits_per_capita  4.331127   1.449950   2.987  0.00491 **
## percent_under_125000              0.001001   0.001564   0.640  0.52603   
## avg_household_size                0.107193   0.094633   1.133  0.26443   
## pop_density                       1.287854   7.978523   0.161  0.87262   
## `percent more than 1 occupant`    0.005660   0.006796   0.833  0.41013   
## `percent more than 1 unit`        0.002529   0.001785   1.417  0.16465   
## avg_median_age                    0.007406   0.004755   1.558  0.12762   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08154 on 38 degrees of freedom
## Multiple R-squared:  0.549,  Adjusted R-squared:  0.4659 
## F-statistic: 6.608 on 7 and 38 DF,  p-value: 3.926e-05
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.118e-04 -9.572e-05 -3.728e-05  4.419e-05  6.965e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                  -2.468e-04  1.201e-04  -2.055  0.04589 * 
## total_visit_hours_per_capita  7.903e-05  2.330e-05   3.392  0.00147 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001868 on 44 degrees of freedom
## Multiple R-squared:  0.2073, Adjusted R-squared:  0.1893 
## F-statistic: 11.51 on 1 and 44 DF,  p-value: 0.001475
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.432e-04 -7.577e-05 -6.000e-07  6.781e-05  3.559e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -4.379e-04  7.022e-04  -0.624   0.5366  
## total_visit_hours_per_capita    3.193e-05  1.959e-05   1.630   0.1114  
## percent_under_125000            2.532e-06  2.496e-06   1.014   0.3168  
## avg_household_size             -2.669e-05  1.486e-04  -0.180   0.8584  
## pop_density                     3.364e-03  1.255e-02   0.268   0.7901  
## `percent more than 1 occupant`  2.866e-05  1.108e-05   2.585   0.0137 *
## `percent more than 1 unit`     -9.456e-07  2.742e-06  -0.345   0.7321  
## avg_median_age                  4.501e-06  7.728e-06   0.582   0.5637  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001307 on 38 degrees of freedom
## Multiple R-squared:  0.665,  Adjusted R-squared:  0.6033 
## F-statistic: 10.78 on 7 and 38 DF,  p-value: 2.141e-07
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.118e-04 -9.572e-05 -3.728e-05  4.419e-05  6.965e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                  -2.468e-04  1.201e-04  -2.055  0.04589 * 
## total_visit_hours_per_capita  7.903e-05  2.330e-05   3.392  0.00147 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001868 on 44 degrees of freedom
## Multiple R-squared:  0.2073, Adjusted R-squared:  0.1893 
## F-statistic: 11.51 on 1 and 44 DF,  p-value: 0.001475
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.432e-04 -7.577e-05 -6.000e-07  6.781e-05  3.559e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -4.379e-04  7.022e-04  -0.624   0.5366  
## total_visit_hours_per_capita    3.193e-05  1.959e-05   1.630   0.1114  
## percent_under_125000            2.532e-06  2.496e-06   1.014   0.3168  
## avg_household_size             -2.669e-05  1.486e-04  -0.180   0.8584  
## pop_density                     3.364e-03  1.255e-02   0.268   0.7901  
## `percent more than 1 occupant`  2.866e-05  1.108e-05   2.585   0.0137 *
## `percent more than 1 unit`     -9.456e-07  2.742e-06  -0.345   0.7321  
## avg_median_age                  4.501e-06  7.728e-06   0.582   0.5637  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001307 on 38 degrees of freedom
## Multiple R-squared:  0.665,  Adjusted R-squared:  0.6033 
## F-statistic: 10.78 on 7 and 38 DF,  p-value: 2.141e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21063 -0.06785 -0.01424  0.05489  0.28379 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                  -0.15402    0.06045  -2.548   0.0144 *  
## total_visit_hours_per_capita  0.05160    0.01173   4.400 6.79e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09403 on 44 degrees of freedom
## Multiple R-squared:  0.3056, Adjusted R-squared:  0.2898 
## F-statistic: 19.36 on 1 and 44 DF,  p-value: 6.786e-05
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11763 -0.06783 -0.01191  0.05377  0.18889 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -0.701197   0.438550  -1.599  0.11813   
## total_visit_hours_per_capita    0.036374   0.012234   2.973  0.00509 **
## percent_under_125000            0.001063   0.001559   0.682  0.49936   
## avg_household_size              0.084822   0.092802   0.914  0.36647   
## pop_density                     7.099569   7.837317   0.906  0.37071   
## `percent more than 1 occupant`  0.003933   0.006923   0.568  0.57327   
## `percent more than 1 unit`      0.001745   0.001712   1.019  0.31459   
## avg_median_age                  0.005269   0.004826   1.092  0.28179   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08162 on 38 degrees of freedom
## Multiple R-squared:  0.5482, Adjusted R-squared:  0.465 
## F-statistic: 6.586 on 7 and 38 DF,  p-value: 4.046e-05
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.035e-04 -1.272e-04 -6.542e-05  4.999e-05  7.870e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           9.407e-05  4.842e-05   1.943   0.0585 .
## total_weighted_visit_hours_per_capita 1.134e-03  7.702e-04   1.473   0.1479  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002048 on 44 degrees of freedom
## Multiple R-squared:  0.04699,    Adjusted R-squared:  0.02533 
## F-statistic:  2.17 on 1 and 44 DF,  p-value: 0.1479
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.448e-04 -8.675e-05  1.268e-05  6.619e-05  3.484e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                           -4.359e-04  6.861e-04  -0.635   0.5290   
## total_weighted_visit_hours_per_capita  1.153e-03  5.542e-04   2.079   0.0444 * 
## percent_under_125000                   2.856e-06  2.346e-06   1.218   0.2309   
## avg_household_size                    -2.873e-05  1.442e-04  -0.199   0.8431   
## pop_density                           -5.509e-03  1.286e-02  -0.428   0.6708   
## `percent more than 1 occupant`         3.229e-05  1.054e-05   3.065   0.0040 **
## `percent more than 1 unit`            -6.769e-07  2.690e-06  -0.252   0.8027   
## avg_median_age                         6.454e-06  7.468e-06   0.864   0.3929   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001281 on 38 degrees of freedom
## Multiple R-squared:  0.6782, Adjusted R-squared:  0.6189 
## F-statistic: 11.44 on 7 and 38 DF,  p-value: 1.044e-07
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.035e-04 -1.272e-04 -6.542e-05  4.999e-05  7.870e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           9.407e-05  4.842e-05   1.943   0.0585 .
## total_weighted_visit_hours_per_capita 1.134e-03  7.702e-04   1.473   0.1479  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002048 on 44 degrees of freedom
## Multiple R-squared:  0.04699,    Adjusted R-squared:  0.02533 
## F-statistic:  2.17 on 1 and 44 DF,  p-value: 0.1479
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.448e-04 -8.675e-05  1.268e-05  6.619e-05  3.484e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                           -4.359e-04  6.861e-04  -0.635   0.5290   
## total_weighted_visit_hours_per_capita  1.153e-03  5.542e-04   2.079   0.0444 * 
## percent_under_125000                   2.856e-06  2.346e-06   1.218   0.2309   
## avg_household_size                    -2.873e-05  1.442e-04  -0.199   0.8431   
## pop_density                           -5.509e-03  1.286e-02  -0.428   0.6708   
## `percent more than 1 occupant`         3.229e-05  1.054e-05   3.065   0.0040 **
## `percent more than 1 unit`            -6.769e-07  2.690e-06  -0.252   0.8027   
## avg_median_age                         6.454e-06  7.468e-06   0.864   0.3929   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001281 on 38 degrees of freedom
## Multiple R-squared:  0.6782, Adjusted R-squared:  0.6189 
## F-statistic: 11.44 on 7 and 38 DF,  p-value: 1.044e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14959 -0.08132 -0.02708  0.06336  0.28410 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.04674    0.02420   1.931  0.05990 . 
## total_weighted_visit_hours_per_capita  1.18318    0.38496   3.074  0.00363 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1024 on 44 degrees of freedom
## Multiple R-squared:  0.1767, Adjusted R-squared:  0.158 
## F-statistic: 9.447 on 1 and 44 DF,  p-value: 0.003625
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.124149 -0.051223 -0.006926  0.058150  0.171827 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                           -0.681252   0.424669  -1.604  0.11695   
## total_weighted_visit_hours_per_capita  1.170725   0.343025   3.413  0.00154 **
## percent_under_125000                   0.001575   0.001452   1.085  0.28484   
## avg_household_size                     0.076150   0.089239   0.853  0.39883   
## pop_density                           -2.033592   7.959139  -0.256  0.79971   
## `percent more than 1 occupant`         0.008168   0.006521   1.253  0.21797   
## `percent more than 1 unit`             0.001900   0.001665   1.141  0.26100   
## avg_median_age                         0.007513   0.004622   1.626  0.11230   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07927 on 38 degrees of freedom
## Multiple R-squared:  0.5737, Adjusted R-squared:  0.4952 
## F-statistic: 7.307 on 7 and 38 DF,  p-value: 1.485e-05
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.613e-04 -1.082e-04 -4.127e-05  8.739e-05  6.154e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -0.0001584  0.0001098  -1.442  0.15852   
## total_weighted_visits_per_capita  0.0111207  0.0033416   3.328  0.00211 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001914 on 34 degrees of freedom
## Multiple R-squared:  0.2457, Adjusted R-squared:  0.2235 
## F-statistic: 11.08 on 1 and 34 DF,  p-value: 0.002111
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.341e-04 -6.505e-05  1.199e-05  7.028e-05  3.125e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -4.586e-04  7.914e-04  -0.579   0.5669  
## total_weighted_visits_per_capita  6.110e-03  3.300e-03   1.851   0.0747 .
## percent_under_125000              1.295e-06  2.749e-06   0.471   0.6413  
## avg_household_size                9.585e-05  1.775e-04   0.540   0.5934  
## pop_density                       2.362e-03  1.895e-02   0.125   0.9017  
## `percent more than 1 occupant`    1.887e-05  1.395e-05   1.352   0.1871  
## `percent more than 1 unit`        1.756e-06  3.287e-06   0.534   0.5973  
## avg_median_age                   -3.198e-06  1.022e-05  -0.313   0.7567  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001312 on 28 degrees of freedom
## Multiple R-squared:  0.708,  Adjusted R-squared:  0.635 
## F-statistic: 9.697 on 7 and 28 DF,  p-value: 4.381e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12550 -0.06968 -0.01034  0.06145  0.20818 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                      -0.09252    0.04918  -1.881   0.0685 .  
## total_weighted_visits_per_capita  7.20205    1.49613   4.814 2.99e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08568 on 34 degrees of freedom
## Multiple R-squared:  0.4053, Adjusted R-squared:  0.3878 
## F-statistic: 23.17 on 1 and 34 DF,  p-value: 2.991e-05
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.124738 -0.044476  0.001414  0.045711  0.132004 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -3.132e-01  4.339e-01  -0.722   0.4763  
## total_weighted_visits_per_capita  4.271e+00  1.809e+00   2.361   0.0254 *
## percent_under_125000              1.267e-05  1.507e-03   0.008   0.9934  
## avg_household_size                1.137e-01  9.729e-02   1.169   0.2522  
## pop_density                       1.239e+01  1.039e+01   1.193   0.2428  
## `percent more than 1 occupant`   -1.874e-03  7.648e-03  -0.245   0.8082  
## `percent more than 1 unit`        2.614e-03  1.802e-03   1.451   0.1580  
## avg_median_age                   -3.426e-03  5.603e-03  -0.611   0.5459  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07193 on 28 degrees of freedom
## Multiple R-squared:  0.6548, Adjusted R-squared:  0.5685 
## F-statistic: 7.588 on 7 and 28 DF,  p-value: 3.818e-05
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.329e-04 -1.010e-04 -4.728e-05  2.909e-05  6.467e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                  -3.004e-04  1.617e-04  -1.857  0.07193 . 
## total_visit_hours_per_capita  9.464e-05  3.049e-05   3.104  0.00383 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001945 on 34 degrees of freedom
## Multiple R-squared:  0.2208, Adjusted R-squared:  0.1979 
## F-statistic: 9.637 on 1 and 34 DF,  p-value: 0.003829
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.474e-04 -7.631e-05  1.340e-06  8.609e-05  3.463e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -1.947e-04  8.446e-04  -0.230    0.819
## total_visit_hours_per_capita    1.166e-05  2.940e-05   0.396    0.695
## percent_under_125000            2.851e-06  2.839e-06   1.004    0.324
## avg_household_size              7.954e-05  1.874e-04   0.424    0.675
## pop_density                     1.654e-02  1.840e-02   0.899    0.376
## `percent more than 1 occupant`  1.618e-05  1.466e-05   1.104    0.279
## `percent more than 1 unit`      4.942e-07  3.400e-06   0.145    0.885
## avg_median_age                 -7.113e-06  1.076e-05  -0.661    0.514
## 
## Residual standard error: 0.0001386 on 28 degrees of freedom
## Multiple R-squared:  0.6741, Adjusted R-squared:  0.5926 
## F-statistic: 8.272 on 7 and 28 DF,  p-value: 1.826e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10604 -0.07502 -0.01243  0.05211  0.25885 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                  -0.17962    0.07428  -2.418 0.021114 *  
## total_visit_hours_per_capita  0.06036    0.01401   4.310 0.000132 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08934 on 34 degrees of freedom
## Multiple R-squared:  0.3533, Adjusted R-squared:  0.3343 
## F-statistic: 18.57 on 1 and 34 DF,  p-value: 0.0001322
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.125964 -0.051487 -0.006346  0.047299  0.159320 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.2389722  0.4650094  -0.514   0.6113  
## total_visit_hours_per_capita    0.0218505  0.0161885   1.350   0.1879  
## percent_under_125000            0.0006786  0.0015630   0.434   0.6675  
## avg_household_size              0.1071738  0.1031888   1.039   0.3079  
## pop_density                    20.1442981 10.1306231   1.988   0.0566 .
## `percent more than 1 occupant` -0.0035261  0.0080687  -0.437   0.6655  
## `percent more than 1 unit`      0.0019144  0.0018717   1.023   0.3152  
## avg_median_age                 -0.0049007  0.0059249  -0.827   0.4152  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07632 on 28 degrees of freedom
## Multiple R-squared:  0.6114, Adjusted R-squared:  0.5143 
## F-statistic: 6.294 on 7 and 28 DF,  p-value: 0.000172
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.527e-04 -1.480e-04 -7.227e-05  9.161e-05  7.444e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           1.336e-04  5.414e-05   2.467   0.0188 *
## total_weighted_visit_hours_per_capita 1.173e-03  8.253e-04   1.421   0.1645  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002141 on 34 degrees of freedom
## Multiple R-squared:  0.05605,    Adjusted R-squared:  0.02829 
## F-statistic: 2.019 on 1 and 34 DF,  p-value: 0.1645
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.440e-04 -7.180e-05 -2.160e-06  7.356e-05  3.408e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -2.830e-04  8.107e-04  -0.349    0.730
## total_weighted_visit_hours_per_capita  7.869e-04  6.900e-04   1.140    0.264
## percent_under_125000                   2.802e-06  2.662e-06   1.053    0.302
## avg_household_size                     8.302e-05  1.836e-04   0.452    0.655
## pop_density                            6.775e-03  2.021e-02   0.335    0.740
## `percent more than 1 occupant`         1.885e-05  1.458e-05   1.293    0.206
## `percent more than 1 unit`             9.822e-07  3.358e-06   0.292    0.772
## avg_median_age                        -4.841e-06  1.062e-05  -0.456    0.652
## 
## Residual standard error: 0.0001359 on 28 degrees of freedom
## Multiple R-squared:  0.6868, Adjusted R-squared:  0.6085 
## F-statistic:  8.77 on 7 and 28 DF,  p-value: 1.091e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12165 -0.07657 -0.02150  0.07724  0.25368 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.07334    0.02446   2.999  0.00504 **
## total_weighted_visit_hours_per_capita  1.22995    0.37281   3.299  0.00228 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09669 on 34 degrees of freedom
## Multiple R-squared:  0.2425, Adjusted R-squared:  0.2202 
## F-statistic: 10.88 on 1 and 34 DF,  p-value: 0.002281
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12904 -0.04131 -0.01030  0.04559  0.14599 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           -0.2374934  0.4391286  -0.541   0.5929  
## total_weighted_visit_hours_per_capita  0.7532747  0.3737700   2.015   0.0536 .
## percent_under_125000                   0.0009605  0.0014417   0.666   0.5107  
## avg_household_size                     0.1067383  0.0994328   1.073   0.2922  
## pop_density                           12.4796882 10.9447792   1.140   0.2638  
## `percent more than 1 occupant`        -0.0011424  0.0078959  -0.145   0.8860  
## `percent more than 1 unit`             0.0022387  0.0018190   1.231   0.2286  
## avg_median_age                        -0.0037104  0.0057542  -0.645   0.5243  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0736 on 28 degrees of freedom
## Multiple R-squared:  0.6386, Adjusted R-squared:  0.5482 
## F-statistic: 7.067 on 7 and 28 DF,  p-value: 6.877e-05
## 
## [1] "Cases start date: 2020-05-11"
## [1] "Visits start date: 2020-04-27"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.391e-04 -1.190e-04 -4.047e-05  7.348e-05  8.448e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0001316  0.0001259  -1.045   0.3016  
## total_weighted_visits_per_capita  0.0100565  0.0038167   2.635   0.0116 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002297 on 44 degrees of freedom
## Multiple R-squared:  0.1363, Adjusted R-squared:  0.1167 
## F-statistic: 6.942 on 1 and 44 DF,  p-value: 0.01158
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.301e-04 -7.737e-05 -3.445e-05  7.163e-05  4.820e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -3.809e-05  9.120e-04  -0.042   0.9669  
## total_weighted_visits_per_capita  2.088e-03  3.695e-03   0.565   0.5754  
## percent_under_125000              5.682e-06  3.502e-06   1.623   0.1130  
## avg_household_size               -1.185e-04  1.956e-04  -0.606   0.5482  
## pop_density                       9.374e-03  1.647e-02   0.569   0.5727  
## `percent more than 1 occupant`    3.303e-05  1.419e-05   2.328   0.0253 *
## `percent more than 1 unit`       -4.946e-06  3.801e-06  -1.301   0.2010  
## avg_median_age                    1.963e-06  9.962e-06   0.197   0.8448  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001691 on 38 degrees of freedom
## Multiple R-squared:  0.5956, Adjusted R-squared:  0.5211 
## F-statistic: 7.994 on 7 and 38 DF,  p-value: 5.958e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.391e-04 -1.190e-04 -4.047e-05  7.348e-05  8.448e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0001316  0.0001259  -1.045   0.3016  
## total_weighted_visits_per_capita  0.0100565  0.0038167   2.635   0.0116 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002297 on 44 degrees of freedom
## Multiple R-squared:  0.1363, Adjusted R-squared:  0.1167 
## F-statistic: 6.942 on 1 and 44 DF,  p-value: 0.01158
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.301e-04 -7.737e-05 -3.445e-05  7.163e-05  4.820e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -3.809e-05  9.120e-04  -0.042   0.9669  
## total_weighted_visits_per_capita  2.088e-03  3.695e-03   0.565   0.5754  
## percent_under_125000              5.682e-06  3.502e-06   1.623   0.1130  
## avg_household_size               -1.185e-04  1.956e-04  -0.606   0.5482  
## pop_density                       9.374e-03  1.647e-02   0.569   0.5727  
## `percent more than 1 occupant`    3.303e-05  1.419e-05   2.328   0.0253 *
## `percent more than 1 unit`       -4.946e-06  3.801e-06  -1.301   0.2010  
## avg_median_age                    1.963e-06  9.962e-06   0.197   0.8448  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001691 on 38 degrees of freedom
## Multiple R-squared:  0.5956, Adjusted R-squared:  0.5211 
## F-statistic: 7.994 on 7 and 38 DF,  p-value: 5.958e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13904 -0.11979 -0.02373  0.02936  0.57868 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                        0.1048     0.0789   1.328    0.191
## total_weighted_visits_per_capita   0.7322     2.3917   0.306    0.761
## 
## Residual standard error: 0.1439 on 44 degrees of freedom
## Multiple R-squared:  0.002126,   Adjusted R-squared:  -0.02055 
## F-statistic: 0.09373 on 1 and 44 DF,  p-value: 0.7609
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24771 -0.07227 -0.01032  0.04714  0.38942 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -2.124e-01  6.419e-01  -0.331  0.74250   
## total_weighted_visits_per_capita -3.205e+00  2.601e+00  -1.232  0.22547   
## percent_under_125000              3.544e-03  2.465e-03   1.438  0.15859   
## avg_household_size                6.966e-02  1.377e-01   0.506  0.61577   
## pop_density                       3.193e+01  1.159e+01   2.754  0.00899 **
## `percent more than 1 occupant`    6.339e-04  9.985e-03   0.063  0.94971   
## `percent more than 1 unit`       -1.674e-03  2.675e-03  -0.626  0.53512   
## avg_median_age                   -5.582e-05  7.012e-03  -0.008  0.99369   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.119 on 38 degrees of freedom
## Multiple R-squared:  0.4105, Adjusted R-squared:  0.3019 
## F-statistic:  3.78 on 7 and 38 DF,  p-value: 0.003323
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.600e-04 -1.429e-04 -4.910e-05  5.596e-05  9.273e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -2.841e-04  2.028e-04  -1.401   0.1681  
## total_visit_hours_per_capita  1.071e-04  4.533e-05   2.362   0.0227 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002328 on 44 degrees of freedom
## Multiple R-squared:  0.1125, Adjusted R-squared:  0.09237 
## F-statistic:  5.58 on 1 and 44 DF,  p-value: 0.02266
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.301e-04 -8.483e-05 -1.601e-05  4.007e-05  4.888e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.411e-05  8.967e-04   0.049   0.9610  
## total_visit_hours_per_capita   -3.634e-05  4.290e-05  -0.847   0.4022  
## percent_under_125000            8.098e-06  3.423e-06   2.366   0.0232 *
## avg_household_size             -1.474e-04  1.866e-04  -0.790   0.4346  
## pop_density                     7.746e-03  1.659e-02   0.467   0.6432  
## `percent more than 1 occupant`  3.537e-05  1.386e-05   2.553   0.0148 *
## `percent more than 1 unit`     -5.955e-06  3.451e-06  -1.726   0.0925 .
## avg_median_age                  4.580e-06  1.004e-05   0.456   0.6508  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001682 on 38 degrees of freedom
## Multiple R-squared:  0.5997, Adjusted R-squared:  0.526 
## F-statistic: 8.133 on 7 and 38 DF,  p-value: 4.974e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.600e-04 -1.429e-04 -4.910e-05  5.596e-05  9.273e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -2.841e-04  2.028e-04  -1.401   0.1681  
## total_visit_hours_per_capita  1.071e-04  4.533e-05   2.362   0.0227 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002328 on 44 degrees of freedom
## Multiple R-squared:  0.1125, Adjusted R-squared:  0.09237 
## F-statistic:  5.58 on 1 and 44 DF,  p-value: 0.02266
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.301e-04 -8.483e-05 -1.601e-05  4.007e-05  4.888e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.411e-05  8.967e-04   0.049   0.9610  
## total_visit_hours_per_capita   -3.634e-05  4.290e-05  -0.847   0.4022  
## percent_under_125000            8.098e-06  3.423e-06   2.366   0.0232 *
## avg_household_size             -1.474e-04  1.866e-04  -0.790   0.4346  
## pop_density                     7.746e-03  1.659e-02   0.467   0.6432  
## `percent more than 1 occupant`  3.537e-05  1.386e-05   2.553   0.0148 *
## `percent more than 1 unit`     -5.955e-06  3.451e-06  -1.726   0.0925 .
## avg_median_age                  4.580e-06  1.004e-05   0.456   0.6508  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001682 on 38 degrees of freedom
## Multiple R-squared:  0.5997, Adjusted R-squared:  0.526 
## F-statistic: 8.133 on 7 and 38 DF,  p-value: 4.974e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13896 -0.10241 -0.03023  0.03032  0.58982 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.05645    0.12500   0.452    0.654
## total_visit_hours_per_capita  0.01624    0.02794   0.581    0.564
## 
## Residual standard error: 0.1435 on 44 degrees of freedom
## Multiple R-squared:  0.007614,   Adjusted R-squared:  -0.01494 
## F-statistic: 0.3376 on 1 and 44 DF,  p-value: 0.5642
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23285 -0.06898 -0.01081  0.04505  0.39592 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -0.3311988  0.6435247  -0.515   0.6098  
## total_visit_hours_per_capita   -0.0195447  0.0307878  -0.635   0.5293  
## percent_under_125000            0.0027475  0.0024564   1.119   0.2704  
## avg_household_size              0.1192196  0.1339216   0.890   0.3789  
## pop_density                    27.6851079 11.9041060   2.326   0.0255 *
## `percent more than 1 occupant` -0.0014365  0.0099434  -0.144   0.8859  
## `percent more than 1 unit`     -0.0003885  0.0024765  -0.157   0.8762  
## avg_median_age                 -0.0003235  0.0072039  -0.045   0.9644  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1207 on 38 degrees of freedom
## Multiple R-squared:  0.3934, Adjusted R-squared:  0.2816 
## F-statistic:  3.52 on 7 and 38 DF,  p-value: 0.005216
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.250e-04 -1.778e-04 -7.716e-05  8.631e-05  9.727e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           1.700e-04  7.525e-05   2.259   0.0289 *
## total_weighted_visit_hours_per_capita 4.685e-04  1.718e-03   0.273   0.7863  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002469 on 44 degrees of freedom
## Multiple R-squared:  0.001687,   Adjusted R-squared:  -0.021 
## F-statistic: 0.07438 on 1 and 44 DF,  p-value: 0.7863
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.328e-04 -8.412e-05 -2.523e-05  6.716e-05  4.956e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            7.354e-05  9.157e-04   0.080   0.9364  
## total_weighted_visit_hours_per_capita -3.331e-04  1.444e-03  -0.231   0.8188  
## percent_under_125000                   6.899e-06  3.149e-06   2.191   0.0347 *
## avg_household_size                    -1.598e-04  1.930e-04  -0.828   0.4129  
## pop_density                            1.235e-02  1.729e-02   0.714   0.4797  
## `percent more than 1 occupant`         3.475e-05  1.396e-05   2.490   0.0173 *
## `percent more than 1 unit`            -6.053e-06  3.611e-06  -1.676   0.1019  
## avg_median_age                         2.745e-06  9.894e-06   0.277   0.7829  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001697 on 38 degrees of freedom
## Multiple R-squared:  0.5927, Adjusted R-squared:  0.5177 
## F-statistic: 7.901 on 7 and 38 DF,  p-value: 6.728e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.250e-04 -1.778e-04 -7.716e-05  8.631e-05  9.727e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           1.700e-04  7.525e-05   2.259   0.0289 *
## total_weighted_visit_hours_per_capita 4.685e-04  1.718e-03   0.273   0.7863  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002469 on 44 degrees of freedom
## Multiple R-squared:  0.001687,   Adjusted R-squared:  -0.021 
## F-statistic: 0.07438 on 1 and 44 DF,  p-value: 0.7863
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.328e-04 -8.412e-05 -2.523e-05  6.716e-05  4.956e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            7.354e-05  9.157e-04   0.080   0.9364  
## total_weighted_visit_hours_per_capita -3.331e-04  1.444e-03  -0.231   0.8188  
## percent_under_125000                   6.899e-06  3.149e-06   2.191   0.0347 *
## avg_household_size                    -1.598e-04  1.930e-04  -0.828   0.4129  
## pop_density                            1.235e-02  1.729e-02   0.714   0.4797  
## `percent more than 1 occupant`         3.475e-05  1.396e-05   2.490   0.0173 *
## `percent more than 1 unit`            -6.053e-06  3.611e-06  -1.676   0.1019  
## avg_median_age                         2.745e-06  9.894e-06   0.277   0.7829  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001697 on 38 degrees of freedom
## Multiple R-squared:  0.5927, Adjusted R-squared:  0.5177 
## F-statistic: 7.901 on 7 and 38 DF,  p-value: 6.728e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13874 -0.10021 -0.02435  0.03197  0.55692 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.14646    0.04379   3.344  0.00169 **
## total_weighted_visit_hours_per_capita -0.48073    0.99983  -0.481  0.63303   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1437 on 44 degrees of freedom
## Multiple R-squared:  0.005227,   Adjusted R-squared:  -0.01738 
## F-statistic: 0.2312 on 1 and 44 DF,  p-value: 0.633
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16047 -0.06522 -0.00416  0.05115  0.39736 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                           -0.115420   0.614729  -0.188   0.8521   
## total_weighted_visit_hours_per_capita -2.196896   0.969266  -2.267   0.0292 * 
## percent_under_125000                   0.003348   0.002114   1.584   0.1215   
## avg_household_size                     0.052496   0.129592   0.405   0.6877   
## pop_density                           38.323175  11.609715   3.301   0.0021 **
## `percent more than 1 occupant`        -0.001071   0.009370  -0.114   0.9096   
## `percent more than 1 unit`            -0.001801   0.002424  -0.743   0.4621   
## avg_median_age                        -0.001466   0.006642  -0.221   0.8265   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1139 on 38 degrees of freedom
## Multiple R-squared:   0.46,  Adjusted R-squared:  0.3605 
## F-statistic: 4.623 on 7 and 38 DF,  p-value: 0.0008084
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.169e-04 -1.265e-04 -4.730e-05  6.445e-05  7.721e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -0.0001746  0.0001523  -1.147  0.25947   
## total_weighted_visits_per_capita  0.0126389  0.0045352   2.787  0.00865 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000234 on 34 degrees of freedom
## Multiple R-squared:  0.1859, Adjusted R-squared:  0.162 
## F-statistic: 7.766 on 1 and 34 DF,  p-value: 0.008646
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.381e-04 -1.124e-04  2.200e-06  9.537e-05  4.601e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       2.165e-04  1.130e-03   0.192    0.849
## total_weighted_visits_per_capita  3.061e-03  5.234e-03   0.585    0.563
## percent_under_125000              4.714e-06  4.302e-06   1.096    0.283
## avg_household_size               -1.425e-04  2.559e-04  -0.557    0.582
## pop_density                       1.766e-02  2.546e-02   0.694    0.494
## `percent more than 1 occupant`    3.232e-05  2.004e-05   1.613    0.118
## `percent more than 1 unit`       -5.454e-06  4.791e-06  -1.138    0.265
## avg_median_age                   -1.583e-06  1.443e-05  -0.110    0.913
## 
## Residual standard error: 0.0001888 on 28 degrees of freedom
## Multiple R-squared:  0.5635, Adjusted R-squared:  0.4544 
## F-statistic: 5.164 on 7 and 28 DF,  p-value: 0.0007309
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.20870 -0.06222 -0.02129  0.04624  0.31670 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.001264   0.069086  -0.018   0.9855  
## total_weighted_visits_per_capita  4.486251   2.057623   2.180   0.0363 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1062 on 34 degrees of freedom
## Multiple R-squared:  0.1227, Adjusted R-squared:  0.09686 
## F-statistic: 4.754 on 1 and 34 DF,  p-value: 0.03625
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15621 -0.06244 -0.02145  0.04739  0.32602 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -0.196354   0.637954  -0.308    0.761
## total_weighted_visits_per_capita  1.246942   2.955349   0.422    0.676
## percent_under_125000              0.002255   0.002429   0.928    0.361
## avg_household_size               -0.032737   0.144476  -0.227    0.822
## pop_density                      14.407536  14.377684   1.002    0.325
## `percent more than 1 occupant`    0.007850   0.011315   0.694    0.494
## `percent more than 1 unit`       -0.001973   0.002705  -0.729    0.472
## avg_median_age                    0.005873   0.008149   0.721    0.477
## 
## Residual standard error: 0.1066 on 28 degrees of freedom
## Multiple R-squared:  0.2714, Adjusted R-squared:  0.08927 
## F-statistic:  1.49 on 7 and 28 DF,  p-value: 0.2113
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.418e-04 -1.502e-04 -6.809e-05  5.294e-05  8.920e-04 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -3.026e-04  2.896e-04  -1.045   0.3035  
## total_visit_hours_per_capita  1.181e-04  6.291e-05   1.877   0.0691 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002469 on 34 degrees of freedom
## Multiple R-squared:  0.09391,    Adjusted R-squared:  0.06726 
## F-statistic: 3.524 on 1 and 34 DF,  p-value: 0.0691
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.355e-04 -1.119e-04 -1.366e-05  7.826e-05  4.812e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.540e-04  1.103e-03   0.411    0.684  
## total_visit_hours_per_capita   -5.763e-05  6.823e-05  -0.845    0.405  
## percent_under_125000            8.168e-06  4.434e-06   1.842    0.076 .
## avg_household_size             -1.442e-04  2.536e-04  -0.569    0.574  
## pop_density                     1.281e-02  2.654e-02   0.483    0.633  
## `percent more than 1 occupant`  3.051e-05  1.984e-05   1.538    0.135  
## `percent more than 1 unit`     -5.886e-06  4.589e-06  -1.283    0.210  
## avg_median_age                 -2.886e-06  1.410e-05  -0.205    0.839  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001876 on 28 degrees of freedom
## Multiple R-squared:  0.5692, Adjusted R-squared:  0.4615 
## F-statistic: 5.284 on 7 and 28 DF,  p-value: 0.0006227
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13426 -0.06552 -0.02341  0.03415  0.32099 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -0.06707    0.12782  -0.525    0.603
## total_visit_hours_per_capita  0.04639    0.02777   1.671    0.104
## 
## Residual standard error: 0.109 on 34 degrees of freedom
## Multiple R-squared:  0.07588,    Adjusted R-squared:  0.0487 
## F-statistic: 2.792 on 1 and 34 DF,  p-value: 0.1039
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.151631 -0.072665 -0.009601  0.053763  0.311044 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.174478   0.625876  -0.279    0.782
## total_visit_hours_per_capita    0.020578   0.038705   0.532    0.599
## percent_under_125000            0.002029   0.002515   0.807    0.427
## avg_household_size             -0.042131   0.143858  -0.293    0.772
## pop_density                    19.606705  15.052958   1.303    0.203
## `percent more than 1 occupant`  0.007653   0.011254   0.680    0.502
## `percent more than 1 unit`     -0.002419   0.002603  -0.929    0.361
## avg_median_age                  0.005153   0.007997   0.644    0.525
## 
## Residual standard error: 0.1064 on 28 degrees of freedom
## Multiple R-squared:  0.2741, Adjusted R-squared:  0.09264 
## F-statistic: 1.511 on 7 and 28 DF,  p-value: 0.2044
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.103e-04 -1.769e-04 -7.461e-05  7.327e-05  8.959e-04 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           0.0001163  0.0001035   1.124    0.269
## total_weighted_visit_hours_per_capita 0.0032986  0.0026139   1.262    0.216
## 
## Residual standard error: 0.0002535 on 34 degrees of freedom
## Multiple R-squared:  0.04474,    Adjusted R-squared:  0.01664 
## F-statistic: 1.592 on 1 and 34 DF,  p-value: 0.2156
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.337e-04 -1.207e-04 -4.660e-06  9.662e-05  4.793e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            3.839e-04  1.116e-03   0.344    0.733
## total_weighted_visit_hours_per_capita -6.746e-04  2.828e-03  -0.238    0.813
## percent_under_125000                   6.397e-06  3.989e-06   1.604    0.120
## avg_household_size                    -1.535e-04  2.563e-04  -0.599    0.554
## pop_density                            2.497e-02  2.701e-02   0.925    0.363
## `percent more than 1 occupant`         3.002e-05  2.067e-05   1.453    0.157
## `percent more than 1 unit`            -6.300e-06  4.630e-06  -1.361    0.184
## avg_median_age                        -3.857e-06  1.458e-05  -0.265    0.793
## 
## Residual standard error: 0.0001898 on 28 degrees of freedom
## Multiple R-squared:  0.5591, Adjusted R-squared:  0.4488 
## F-statistic: 5.072 on 7 and 28 DF,  p-value: 0.0008276
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21906 -0.06019 -0.03169  0.03766  0.32035 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.09336    0.04528   2.062   0.0469 *
## total_weighted_visit_hours_per_capita  1.41031    1.14351   1.233   0.2259  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1109 on 34 degrees of freedom
## Multiple R-squared:  0.04282,    Adjusted R-squared:  0.01467 
## F-statistic: 1.521 on 1 and 34 DF,  p-value: 0.2259
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14713 -0.06834 -0.01662  0.05368  0.33658 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -0.131032   0.628793  -0.208    0.836
## total_weighted_visit_hours_per_capita -0.205821   1.593544  -0.129    0.898
## percent_under_125000                   0.002903   0.002248   1.292    0.207
## avg_household_size                    -0.037448   0.144416  -0.259    0.797
## pop_density                           17.101608  15.217818   1.124    0.271
## `percent more than 1 occupant`         0.007036   0.011643   0.604    0.551
## `percent more than 1 unit`            -0.002312   0.002609  -0.886    0.383
## avg_median_age                         0.005021   0.008213   0.611    0.546
## 
## Residual standard error: 0.1069 on 28 degrees of freedom
## Multiple R-squared:  0.2672, Adjusted R-squared:  0.08403 
## F-statistic: 1.459 on 7 and 28 DF,  p-value: 0.2224
## 
## [1] "Cases start date: 2020-05-18"
## [1] "Visits start date: 2020-05-04"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.582e-04 -1.276e-04 -6.016e-05  6.534e-05  1.771e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0002776  0.0002323  -1.195   0.2385  
## total_weighted_visits_per_capita  0.0182470  0.0080741   2.260   0.0288 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003557 on 44 degrees of freedom
## Multiple R-squared:  0.104,  Adjusted R-squared:  0.08364 
## F-statistic: 5.107 on 1 and 44 DF,  p-value: 0.02883
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.382e-04 -1.611e-04 -4.200e-07  8.927e-05  1.142e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -1.326e-04  1.486e-03  -0.089   0.9293  
## total_weighted_visits_per_capita  7.893e-03  7.257e-03   1.088   0.2836  
## percent_under_125000              7.044e-06  4.919e-06   1.432   0.1603  
## avg_household_size               -2.608e-04  3.028e-04  -0.861   0.3944  
## pop_density                       1.202e-02  2.760e-02   0.435   0.6657  
## `percent more than 1 occupant`    5.818e-05  2.221e-05   2.620   0.0126 *
## `percent more than 1 unit`       -7.460e-06  5.792e-06  -1.288   0.2056  
## avg_median_age                    7.580e-06  1.583e-05   0.479   0.6349  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002694 on 38 degrees of freedom
## Multiple R-squared:  0.5562, Adjusted R-squared:  0.4744 
## F-statistic: 6.803 on 7 and 38 DF,  p-value: 2.978e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.582e-04 -1.276e-04 -6.016e-05  6.534e-05  1.771e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0002776  0.0002323  -1.195   0.2385  
## total_weighted_visits_per_capita  0.0182470  0.0080741   2.260   0.0288 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003557 on 44 degrees of freedom
## Multiple R-squared:  0.104,  Adjusted R-squared:  0.08364 
## F-statistic: 5.107 on 1 and 44 DF,  p-value: 0.02883
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.382e-04 -1.611e-04 -4.200e-07  8.927e-05  1.142e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -1.326e-04  1.486e-03  -0.089   0.9293  
## total_weighted_visits_per_capita  7.893e-03  7.257e-03   1.088   0.2836  
## percent_under_125000              7.044e-06  4.919e-06   1.432   0.1603  
## avg_household_size               -2.608e-04  3.028e-04  -0.861   0.3944  
## pop_density                       1.202e-02  2.760e-02   0.435   0.6657  
## `percent more than 1 occupant`    5.818e-05  2.221e-05   2.620   0.0126 *
## `percent more than 1 unit`       -7.460e-06  5.792e-06  -1.288   0.2056  
## avg_median_age                    7.580e-06  1.583e-05   0.479   0.6349  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002694 on 38 degrees of freedom
## Multiple R-squared:  0.5562, Adjusted R-squared:  0.4744 
## F-statistic: 6.803 on 7 and 38 DF,  p-value: 2.978e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.20491 -0.07562 -0.02537  0.04226  0.57847 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       0.03685    0.08852   0.416    0.679
## total_weighted_visits_per_capita  3.27697    3.07605   1.065    0.293
## 
## Residual standard error: 0.1355 on 44 degrees of freedom
## Multiple R-squared:  0.02514,    Adjusted R-squared:  0.002989 
## F-statistic: 1.135 on 1 and 44 DF,  p-value: 0.2925
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16846 -0.07346 -0.01835  0.03238  0.56585 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       0.345753   0.736492   0.469    0.641
## total_weighted_visits_per_capita -0.556478   3.597783  -0.155    0.878
## percent_under_125000              0.002762   0.002439   1.133    0.264
## avg_household_size               -0.045218   0.150120  -0.301    0.765
## pop_density                       6.828822  13.682887   0.499    0.621
## `percent more than 1 occupant`    0.003939   0.011009   0.358    0.722
## `percent more than 1 unit`       -0.002189   0.002872  -0.762    0.451
## avg_median_age                   -0.005359   0.007849  -0.683    0.499
## 
## Residual standard error: 0.1335 on 38 degrees of freedom
## Multiple R-squared:  0.1823, Adjusted R-squared:  0.03167 
## F-statistic:  1.21 on 7 and 38 DF,  p-value: 0.321
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.211e-04 -1.985e-04 -1.237e-04  4.381e-05  1.834e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -0.0002754  0.0003024  -0.911    0.367  
## total_visit_hours_per_capita  0.0001460  0.0000853   1.711    0.094 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003638 on 44 degrees of freedom
## Multiple R-squared:  0.06241,    Adjusted R-squared:  0.0411 
## F-statistic: 2.929 on 1 and 44 DF,  p-value: 0.09405
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.513e-04 -1.117e-04 -5.556e-05  6.689e-05  1.141e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.922e-04  1.403e-03   0.137   0.8918  
## total_visit_hours_per_capita   -1.445e-04  8.253e-05  -1.751   0.0881 .
## percent_under_125000            1.127e-05  4.992e-06   2.258   0.0298 *
## avg_household_size             -1.705e-04  3.032e-04  -0.562   0.5771  
## pop_density                     2.018e-02  2.527e-02   0.798   0.4296  
## `percent more than 1 occupant`  5.461e-05  2.185e-05   2.499   0.0169 *
## `percent more than 1 unit`     -8.359e-06  5.422e-06  -1.542   0.1315  
## avg_median_age                  5.484e-06  1.534e-05   0.358   0.7227  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002631 on 38 degrees of freedom
## Multiple R-squared:  0.5765, Adjusted R-squared:  0.4985 
## F-statistic: 7.391 on 7 and 38 DF,  p-value: 1.325e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.211e-04 -1.985e-04 -1.237e-04  4.381e-05  1.834e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -0.0002754  0.0003024  -0.911    0.367  
## total_visit_hours_per_capita  0.0001460  0.0000853   1.711    0.094 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003638 on 44 degrees of freedom
## Multiple R-squared:  0.06241,    Adjusted R-squared:  0.0411 
## F-statistic: 2.929 on 1 and 44 DF,  p-value: 0.09405
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.513e-04 -1.117e-04 -5.556e-05  6.689e-05  1.141e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.922e-04  1.403e-03   0.137   0.8918  
## total_visit_hours_per_capita   -1.445e-04  8.253e-05  -1.751   0.0881 .
## percent_under_125000            1.127e-05  4.992e-06   2.258   0.0298 *
## avg_household_size             -1.705e-04  3.032e-04  -0.562   0.5771  
## pop_density                     2.018e-02  2.527e-02   0.798   0.4296  
## `percent more than 1 occupant`  5.461e-05  2.185e-05   2.499   0.0169 *
## `percent more than 1 unit`     -8.359e-06  5.422e-06  -1.542   0.1315  
## avg_median_age                  5.484e-06  1.534e-05   0.358   0.7227  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002631 on 38 degrees of freedom
## Multiple R-squared:  0.5765, Adjusted R-squared:  0.4985 
## F-statistic: 7.391 on 7 and 38 DF,  p-value: 1.325e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13648 -0.08764 -0.03219  0.04010  0.57420 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.08335    0.11385   0.732    0.468
## total_visit_hours_per_capita  0.01300    0.03212   0.405    0.688
## 
## Residual standard error: 0.137 on 44 degrees of freedom
## Multiple R-squared:  0.003711,   Adjusted R-squared:  -0.01893 
## F-statistic: 0.1639 on 1 and 44 DF,  p-value: 0.6876
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15385 -0.07513 -0.01416  0.04085  0.53765 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.274846   0.688564   0.399    0.692
## total_visit_hours_per_capita   -0.066289   0.040494  -1.637    0.110
## percent_under_125000            0.004067   0.002449   1.660    0.105
## avg_household_size              0.024748   0.148776   0.166    0.869
## pop_density                     4.985807  12.401537   0.402    0.690
## `percent more than 1 occupant`  0.001306   0.010721   0.122    0.904
## `percent more than 1 unit`     -0.001590   0.002661  -0.598    0.554
## avg_median_age                 -0.005155   0.007527  -0.685    0.498
## 
## Residual standard error: 0.1291 on 38 degrees of freedom
## Multiple R-squared:  0.2357, Adjusted R-squared:  0.09489 
## F-statistic: 1.674 on 7 and 38 DF,  p-value: 0.1449
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.233e-04 -1.983e-04 -1.375e-04  4.869e-05  1.893e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           2.020e-04  9.924e-05   2.035   0.0479 *
## total_weighted_visit_hours_per_capita 1.211e-03  3.129e-03   0.387   0.7005  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003751 on 44 degrees of freedom
## Multiple R-squared:  0.003396,   Adjusted R-squared:  -0.01925 
## F-statistic: 0.1499 on 1 and 44 DF,  p-value: 0.7005
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.869e-04 -1.399e-04 -7.930e-06  7.051e-05  1.157e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            3.401e-04  1.461e-03   0.233   0.8171  
## total_weighted_visit_hours_per_capita -1.555e-03  3.699e-03  -0.420   0.6767  
## percent_under_125000                   8.220e-06  4.857e-06   1.692   0.0987 .
## avg_household_size                    -3.003e-04  3.046e-04  -0.986   0.3304  
## pop_density                            3.151e-02  3.371e-02   0.934   0.3559  
## `percent more than 1 occupant`         5.800e-05  2.296e-05   2.527   0.0158 *
## `percent more than 1 unit`            -9.385e-06  5.592e-06  -1.678   0.1015  
## avg_median_age                         3.707e-06  1.640e-05   0.226   0.8223  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002729 on 38 degrees of freedom
## Multiple R-squared:  0.5445, Adjusted R-squared:  0.4606 
## F-statistic: 6.489 on 7 and 38 DF,  p-value: 4.652e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.233e-04 -1.983e-04 -1.375e-04  4.869e-05  1.893e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           2.020e-04  9.924e-05   2.035   0.0479 *
## total_weighted_visit_hours_per_capita 1.211e-03  3.129e-03   0.387   0.7005  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003751 on 44 degrees of freedom
## Multiple R-squared:  0.003396,   Adjusted R-squared:  -0.01925 
## F-statistic: 0.1499 on 1 and 44 DF,  p-value: 0.7005
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.869e-04 -1.399e-04 -7.930e-06  7.051e-05  1.157e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            3.401e-04  1.461e-03   0.233   0.8171  
## total_weighted_visit_hours_per_capita -1.555e-03  3.699e-03  -0.420   0.6767  
## percent_under_125000                   8.220e-06  4.857e-06   1.692   0.0987 .
## avg_household_size                    -3.003e-04  3.046e-04  -0.986   0.3304  
## pop_density                            3.151e-02  3.371e-02   0.934   0.3559  
## `percent more than 1 occupant`         5.800e-05  2.296e-05   2.527   0.0158 *
## `percent more than 1 unit`            -9.385e-06  5.592e-06  -1.678   0.1015  
## avg_median_age                         3.707e-06  1.640e-05   0.226   0.8223  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002729 on 38 degrees of freedom
## Multiple R-squared:  0.5445, Adjusted R-squared:  0.4606 
## F-statistic: 6.489 on 7 and 38 DF,  p-value: 4.652e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14476 -0.09044 -0.02301  0.04627  0.56500 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.11092    0.03616   3.067  0.00369 **
## total_weighted_visit_hours_per_capita  0.67573    1.14017   0.593  0.55645   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1367 on 44 degrees of freedom
## Multiple R-squared:  0.007919,   Adjusted R-squared:  -0.01463 
## F-statistic: 0.3512 on 1 and 44 DF,  p-value: 0.5564
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.19660 -0.07152 -0.02106  0.03421  0.55231 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            0.376777   0.707307   0.533    0.597
## total_weighted_visit_hours_per_capita -1.638899   1.791106  -0.915    0.366
## percent_under_125000                   0.002652   0.002352   1.128    0.267
## avg_household_size                    -0.026196   0.147478  -0.178    0.860
## pop_density                           15.499653  16.324818   0.949    0.348
## `percent more than 1 occupant`         0.001637   0.011116   0.147    0.884
## `percent more than 1 unit`            -0.002070   0.002708  -0.765    0.449
## avg_median_age                        -0.006966   0.007940  -0.877    0.386
## 
## Residual standard error: 0.1321 on 38 degrees of freedom
## Multiple R-squared:  0.1994, Adjusted R-squared:  0.05195 
## F-statistic: 1.352 on 7 and 38 DF,  p-value: 0.2535
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.604e-04 -1.513e-04 -3.690e-06  6.405e-05  1.542e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                      -0.0008322  0.0002978  -2.794 0.008389 ** 
## total_weighted_visits_per_capita  0.0404173  0.0106037   3.812 0.000536 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003387 on 35 degrees of freedom
## Multiple R-squared:  0.2933, Adjusted R-squared:  0.2731 
## F-statistic: 14.53 on 1 and 35 DF,  p-value: 0.0005364
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0003598 -0.0001836 -0.0000397  0.0001445  0.0010199 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -1.249e-04  1.608e-03  -0.078  0.93862   
## total_weighted_visits_per_capita  3.236e-02  1.321e-02   2.450  0.02054 * 
## percent_under_125000              9.023e-07  5.984e-06   0.151  0.88120   
## avg_household_size               -5.281e-04  3.624e-04  -1.457  0.15582   
## pop_density                       2.790e-04  3.423e-02   0.008  0.99355   
## `percent more than 1 occupant`    8.284e-05  2.754e-05   3.008  0.00539 **
## `percent more than 1 unit`       -9.519e-06  6.624e-06  -1.437  0.16146   
## avg_median_age                    1.840e-05  1.773e-05   1.038  0.30804   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002759 on 29 degrees of freedom
## Multiple R-squared:  0.6116, Adjusted R-squared:  0.5178 
## F-statistic: 6.523 on 7 and 29 DF,  p-value: 0.000115
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.189825 -0.052488 -0.008318  0.037406  0.183700 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                      -0.17323    0.07269  -2.383   0.0227 *  
## total_weighted_visits_per_capita 11.39822    2.58782   4.405 9.54e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08266 on 35 degrees of freedom
## Multiple R-squared:  0.3566, Adjusted R-squared:  0.3382 
## F-statistic:  19.4 on 1 and 35 DF,  p-value: 9.544e-05
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13082 -0.05804 -0.01682  0.04800  0.20437 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.0208926  0.4982806   0.042   0.9668  
## total_weighted_visits_per_capita 10.5913637  4.0918948   2.588   0.0149 *
## percent_under_125000             -0.0001718  0.0018544  -0.093   0.9268  
## avg_household_size               -0.0862975  0.1122985  -0.768   0.4484  
## pop_density                       5.1498470 10.6082769   0.485   0.6310  
## `percent more than 1 occupant`    0.0109695  0.0085330   1.286   0.2088  
## `percent more than 1 unit`       -0.0021888  0.0020528  -1.066   0.2951  
## avg_median_age                    0.0019393  0.0054951   0.353   0.7267  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08549 on 29 degrees of freedom
## Multiple R-squared:  0.4298, Adjusted R-squared:  0.2922 
## F-statistic: 3.123 on 7 and 29 DF,  p-value: 0.01392
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.088e-04 -2.025e-04 -1.465e-04  2.119e-05  1.808e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -0.0002670  0.0005367  -0.497    0.622
## total_visit_hours_per_capita  0.0001504  0.0001457   1.032    0.309
## 
## Residual standard error: 0.0003969 on 35 degrees of freedom
## Multiple R-squared:  0.02956,    Adjusted R-squared:  0.00183 
## F-statistic: 1.066 on 1 and 35 DF,  p-value: 0.3089
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.646e-04 -1.172e-04 -5.214e-05  9.182e-05  1.099e-03 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     8.676e-04  1.697e-03   0.511   0.6130  
## total_visit_hours_per_capita   -2.421e-04  1.280e-04  -1.892   0.0685 .
## percent_under_125000            1.109e-05  5.669e-06   1.957   0.0601 .
## avg_household_size             -3.402e-04  3.692e-04  -0.922   0.3644  
## pop_density                     2.507e-02  3.285e-02   0.763   0.4516  
## `percent more than 1 occupant`  7.130e-05  2.782e-05   2.563   0.0158 *
## `percent more than 1 unit`     -1.199e-05  6.859e-06  -1.749   0.0910 .
## avg_median_age                  1.055e-05  1.810e-05   0.583   0.5644  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000286 on 29 degrees of freedom
## Multiple R-squared:  0.5826, Adjusted R-squared:  0.4819 
## F-statistic: 5.784 on 7 and 29 DF,  p-value: 0.0002924
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14353 -0.06658 -0.02420  0.04406  0.27665 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.19932    0.13900   1.434    0.160
## total_visit_hours_per_capita -0.01587    0.03774  -0.421    0.677
## 
## Residual standard error: 0.1028 on 35 degrees of freedom
## Multiple R-squared:  0.005029,   Adjusted R-squared:  -0.0234 
## F-statistic: 0.1769 on 1 and 35 DF,  p-value: 0.6766
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11554 -0.06039 -0.01356  0.03597  0.18114 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.3999184  0.5070065   0.789   0.4366  
## total_visit_hours_per_capita   -0.0992072  0.0382434  -2.594   0.0147 *
## percent_under_125000            0.0034185  0.0016941   2.018   0.0529 .
## avg_household_size             -0.0230425  0.1103145  -0.209   0.8360  
## pop_density                    12.5443940  9.8175056   1.278   0.2115  
## `percent more than 1 occupant`  0.0075711  0.0083136   0.911   0.3700  
## `percent more than 1 unit`     -0.0030821  0.0020497  -1.504   0.1435  
## avg_median_age                 -0.0006481  0.0054077  -0.120   0.9054  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08545 on 29 degrees of freedom
## Multiple R-squared:  0.4303, Adjusted R-squared:  0.2928 
## F-statistic: 3.129 on 7 and 29 DF,  p-value: 0.01378
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.978e-04 -2.136e-04 -1.202e-04  9.534e-05  1.841e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           0.0002449  0.0001127   2.174   0.0366 *
## total_weighted_visit_hours_per_capita 0.0014595  0.0034872   0.419   0.6781  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004019 on 35 degrees of freedom
## Multiple R-squared:  0.00498,    Adjusted R-squared:  -0.02345 
## F-statistic: 0.1752 on 1 and 35 DF,  p-value: 0.6781
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.862e-04 -1.773e-04  2.911e-05  7.637e-05  1.118e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            2.132e-04  1.761e-03   0.121   0.9045  
## total_weighted_visit_hours_per_capita -2.399e-04  5.106e-03  -0.047   0.9628  
## percent_under_125000                   8.016e-06  5.765e-06   1.390   0.1750  
## avg_household_size                    -3.550e-04  4.154e-04  -0.855   0.3997  
## pop_density                            3.507e-02  4.362e-02   0.804   0.4280  
## `percent more than 1 occupant`         6.597e-05  3.318e-05   1.989   0.0563 .
## `percent more than 1 unit`            -1.091e-05  7.413e-06  -1.472   0.1518  
## avg_median_age                         1.032e-05  2.142e-05   0.482   0.6335  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003031 on 29 degrees of freedom
## Multiple R-squared:  0.5312, Adjusted R-squared:  0.418 
## F-statistic: 4.694 on 7 and 29 DF,  p-value: 0.001287
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13719 -0.07151 -0.02969  0.04900  0.26383 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.11930    0.02852   4.183 0.000183 ***
## total_weighted_visit_hours_per_capita  0.84017    0.88281   0.952 0.347775    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1017 on 35 degrees of freedom
## Multiple R-squared:  0.02523,    Adjusted R-squared:  -0.002625 
## F-statistic: 0.9057 on 1 and 35 DF,  p-value: 0.3478
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.143977 -0.053622 -0.006868  0.033034  0.241730 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            0.138884   0.549211   0.253    0.802
## total_weighted_visit_hours_per_capita -0.720685   1.592252  -0.453    0.654
## percent_under_125000                   0.002202   0.001798   1.225    0.230
## avg_household_size                    -0.012048   0.129546  -0.093    0.927
## pop_density                           19.896083  13.601702   1.463    0.154
## `percent more than 1 occupant`         0.003510   0.010346   0.339    0.737
## `percent more than 1 unit`            -0.002449   0.002312  -1.060    0.298
## avg_median_age                        -0.001904   0.006681  -0.285    0.778
## 
## Residual standard error: 0.09452 on 29 degrees of freedom
## Multiple R-squared:  0.303,  Adjusted R-squared:  0.1348 
## F-statistic: 1.801 on 7 and 29 DF,  p-value: 0.1251
## 
## [1] "Cases start date: 2020-05-25"
## [1] "Visits start date: 2020-05-11"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.569e-04 -1.390e-04 -6.565e-05  2.334e-05  1.513e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0002328  0.0002357  -0.988   0.3288  
## total_weighted_visits_per_capita  0.0195961  0.0088354   2.218   0.0318 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003842 on 44 degrees of freedom
## Multiple R-squared:  0.1006, Adjusted R-squared:  0.08011 
## F-statistic: 4.919 on 1 and 44 DF,  p-value: 0.03177
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.232e-04 -1.632e-04 -1.486e-05  1.354e-04  8.522e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -1.331e-04  1.425e-03  -0.093  0.92604   
## total_weighted_visits_per_capita  9.599e-03  8.996e-03   1.067  0.29273   
## percent_under_125000              8.348e-06  5.233e-06   1.595  0.11890   
## avg_household_size               -3.196e-04  2.952e-04  -1.083  0.28579   
## pop_density                      -2.461e-02  2.744e-02  -0.897  0.37555   
## `percent more than 1 occupant`    6.931e-05  2.265e-05   3.060  0.00405 **
## `percent more than 1 unit`       -6.433e-06  5.492e-06  -1.171  0.24878   
## avg_median_age                    9.671e-06  1.608e-05   0.602  0.55101   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002642 on 38 degrees of freedom
## Multiple R-squared:  0.6329, Adjusted R-squared:  0.5652 
## F-statistic: 9.358 on 7 and 38 DF,  p-value: 1.089e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.569e-04 -1.390e-04 -6.565e-05  2.334e-05  1.513e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0002328  0.0002357  -0.988   0.3288  
## total_weighted_visits_per_capita  0.0195961  0.0088354   2.218   0.0318 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003842 on 44 degrees of freedom
## Multiple R-squared:  0.1006, Adjusted R-squared:  0.08011 
## F-statistic: 4.919 on 1 and 44 DF,  p-value: 0.03177
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.232e-04 -1.632e-04 -1.486e-05  1.354e-04  8.522e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -1.331e-04  1.425e-03  -0.093  0.92604   
## total_weighted_visits_per_capita  9.599e-03  8.996e-03   1.067  0.29273   
## percent_under_125000              8.348e-06  5.233e-06   1.595  0.11890   
## avg_household_size               -3.196e-04  2.952e-04  -1.083  0.28579   
## pop_density                      -2.461e-02  2.744e-02  -0.897  0.37555   
## `percent more than 1 occupant`    6.931e-05  2.265e-05   3.060  0.00405 **
## `percent more than 1 unit`       -6.433e-06  5.492e-06  -1.171  0.24878   
## avg_median_age                    9.671e-06  1.608e-05   0.602  0.55101   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002642 on 38 degrees of freedom
## Multiple R-squared:  0.6329, Adjusted R-squared:  0.5652 
## F-statistic: 9.358 on 7 and 38 DF,  p-value: 1.089e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18840 -0.09989 -0.01373  0.02654  0.55738 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       0.08753    0.08965   0.976    0.334
## total_weighted_visits_per_capita  1.99728    3.36048   0.594    0.555
## 
## Residual standard error: 0.1461 on 44 degrees of freedom
## Multiple R-squared:  0.007964,   Adjusted R-squared:  -0.01458 
## F-statistic: 0.3532 on 1 and 44 DF,  p-value: 0.5553
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15513 -0.06572 -0.03402  0.03162  0.59433 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       -0.471234   0.791233  -0.596    0.555
## total_weighted_visits_per_capita   1.307354   4.996308   0.262    0.795
## percent_under_125000               0.003494   0.002906   1.202    0.237
## avg_household_size                 0.076686   0.163927   0.468    0.643
## pop_density                      -20.753657  15.242036  -1.362    0.181
## `percent more than 1 occupant`    -0.003902   0.012581  -0.310    0.758
## `percent more than 1 unit`         0.001897   0.003050   0.622    0.538
## avg_median_age                     0.003914   0.008927   0.438    0.664
## 
## Residual standard error: 0.1467 on 38 degrees of freedom
## Multiple R-squared:  0.1366, Adjusted R-squared:  -0.02242 
## F-statistic: 0.859 on 7 and 38 DF,  p-value: 0.547
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.631e-04 -2.058e-04 -9.889e-05  1.675e-05  1.627e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -1.876e-04  2.948e-04  -0.636    0.528
## total_visit_hours_per_capita  1.225e-04  7.662e-05   1.599    0.117
## 
## Residual standard error: 0.0003939 on 44 degrees of freedom
## Multiple R-squared:  0.05494,    Adjusted R-squared:  0.03346 
## F-statistic: 2.558 on 1 and 44 DF,  p-value: 0.1169
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.494e-04 -1.658e-04 -2.626e-05  1.200e-04  8.950e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.647e-05  1.413e-03   0.033   0.9739  
## total_visit_hours_per_capita   -5.878e-05  6.175e-05  -0.952   0.3472  
## percent_under_125000            1.217e-05  4.930e-06   2.468   0.0182 *
## avg_household_size             -2.070e-04  3.040e-04  -0.681   0.5000  
## pop_density                    -1.461e-02  2.545e-02  -0.574   0.5692  
## `percent more than 1 occupant`  5.794e-05  2.228e-05   2.601   0.0132 *
## `percent more than 1 unit`     -6.662e-06  5.488e-06  -1.214   0.2322  
## avg_median_age                  4.379e-06  1.545e-05   0.283   0.7784  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002649 on 38 degrees of freedom
## Multiple R-squared:  0.6307, Adjusted R-squared:  0.5626 
## F-statistic:  9.27 on 7 and 38 DF,  p-value: 1.21e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.631e-04 -2.058e-04 -9.889e-05  1.675e-05  1.627e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -1.876e-04  2.948e-04  -0.636    0.528
## total_visit_hours_per_capita  1.225e-04  7.662e-05   1.599    0.117
## 
## Residual standard error: 0.0003939 on 44 degrees of freedom
## Multiple R-squared:  0.05494,    Adjusted R-squared:  0.03346 
## F-statistic: 2.558 on 1 and 44 DF,  p-value: 0.1169
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.494e-04 -1.658e-04 -2.626e-05  1.200e-04  8.950e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.647e-05  1.413e-03   0.033   0.9739  
## total_visit_hours_per_capita   -5.878e-05  6.175e-05  -0.952   0.3472  
## percent_under_125000            1.217e-05  4.930e-06   2.468   0.0182 *
## avg_household_size             -2.070e-04  3.040e-04  -0.681   0.5000  
## pop_density                    -1.461e-02  2.545e-02  -0.574   0.5692  
## `percent more than 1 occupant`  5.794e-05  2.228e-05   2.601   0.0132 *
## `percent more than 1 unit`     -6.662e-06  5.488e-06  -1.214   0.2322  
## avg_median_age                  4.379e-06  1.545e-05   0.283   0.7784  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002649 on 38 degrees of freedom
## Multiple R-squared:  0.6307, Adjusted R-squared:  0.5626 
## F-statistic:  9.27 on 7 and 38 DF,  p-value: 1.21e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14960 -0.09940 -0.01428  0.03565  0.55266 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.158099   0.109795   1.440    0.157
## total_visit_hours_per_capita -0.004996   0.028533  -0.175    0.862
## 
## Residual standard error: 0.1467 on 44 degrees of freedom
## Multiple R-squared:  0.0006962,  Adjusted R-squared:  -0.02202 
## F-statistic: 0.03065 on 1 and 44 DF,  p-value: 0.8618
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.17754 -0.06730 -0.02894  0.04004  0.59703 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     -0.483619   0.762008  -0.635   0.5295  
## total_visit_hours_per_capita    -0.048765   0.033296  -1.465   0.1513  
## percent_under_125000             0.004963   0.002658   1.867   0.0696 .
## avg_household_size               0.143389   0.163900   0.875   0.3871  
## pop_density                    -20.263639  13.721325  -1.477   0.1480  
## `percent more than 1 occupant`  -0.008554   0.012013  -0.712   0.4808  
## `percent more than 1 unit`       0.002393   0.002959   0.809   0.4237  
## avg_median_age                   0.002933   0.008331   0.352   0.7268  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1429 on 38 degrees of freedom
## Multiple R-squared:  0.1813, Adjusted R-squared:  0.03047 
## F-statistic: 1.202 on 7 and 38 DF,  p-value: 0.3253
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.770e-04 -2.203e-04 -1.425e-04  1.403e-05  1.673e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.0002787  0.0001002    2.78  0.00796 **
## total_weighted_visit_hours_per_capita -0.0001357  0.0026961   -0.05  0.96007   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004051 on 44 degrees of freedom
## Multiple R-squared:  5.76e-05,   Adjusted R-squared:  -0.02267 
## F-statistic: 0.002535 on 1 and 44 DF,  p-value: 0.9601
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.373e-04 -1.750e-04 -2.293e-05  1.088e-04  8.974e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            9.935e-05  1.429e-03   0.070   0.9449  
## total_weighted_visit_hours_per_capita  1.714e-04  2.953e-03   0.058   0.9540  
## percent_under_125000                   1.081e-05  4.772e-06   2.264   0.0293 *
## avg_household_size                    -2.854e-04  3.066e-04  -0.931   0.3578  
## pop_density                           -1.452e-02  3.263e-02  -0.445   0.6588  
## `percent more than 1 occupant`         6.287e-05  2.339e-05   2.688   0.0106 *
## `percent more than 1 unit`            -7.463e-06  5.538e-06  -1.348   0.1858  
## avg_median_age                         4.978e-06  1.610e-05   0.309   0.7588  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002681 on 38 degrees of freedom
## Multiple R-squared:  0.6219, Adjusted R-squared:  0.5522 
## F-statistic: 8.929 on 7 and 38 DF,  p-value: 1.83e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.770e-04 -2.203e-04 -1.425e-04  1.403e-05  1.673e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.0002787  0.0001002    2.78  0.00796 **
## total_weighted_visit_hours_per_capita -0.0001357  0.0026961   -0.05  0.96007   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004051 on 44 degrees of freedom
## Multiple R-squared:  5.76e-05,   Adjusted R-squared:  -0.02267 
## F-statistic: 0.002535 on 1 and 44 DF,  p-value: 0.9601
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.373e-04 -1.750e-04 -2.293e-05  1.088e-04  8.974e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            9.935e-05  1.429e-03   0.070   0.9449  
## total_weighted_visit_hours_per_capita  1.714e-04  2.953e-03   0.058   0.9540  
## percent_under_125000                   1.081e-05  4.772e-06   2.264   0.0293 *
## avg_household_size                    -2.854e-04  3.066e-04  -0.931   0.3578  
## pop_density                           -1.452e-02  3.263e-02  -0.445   0.6588  
## `percent more than 1 occupant`         6.287e-05  2.339e-05   2.688   0.0106 *
## `percent more than 1 unit`            -7.463e-06  5.538e-06  -1.348   0.1858  
## avg_median_age                         4.978e-06  1.610e-05   0.309   0.7588  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002681 on 38 degrees of freedom
## Multiple R-squared:  0.6219, Adjusted R-squared:  0.5522 
## F-statistic: 8.929 on 7 and 38 DF,  p-value: 1.83e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15374 -0.09672 -0.01618  0.03695  0.54837 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.16483    0.03599   4.580  3.8e-05 ***
## total_weighted_visit_hours_per_capita -0.85666    0.96786  -0.885    0.381    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1454 on 44 degrees of freedom
## Multiple R-squared:  0.01749,    Adjusted R-squared:  -0.004836 
## F-statistic: 0.7834 on 1 and 44 DF,  p-value: 0.3809
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15581 -0.06249 -0.03092  0.03899  0.59354 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            -0.437791   0.777385  -0.563    0.577
## total_weighted_visit_hours_per_capita  -1.150506   1.606828  -0.716    0.478
## percent_under_125000                    0.003792   0.002596   1.461    0.152
## avg_household_size                      0.111177   0.166838   0.666    0.509
## pop_density                           -11.395788  17.752925  -0.642    0.525
## `percent more than 1 occupant`         -0.007893   0.012724  -0.620    0.539
## `percent more than 1 unit`              0.002037   0.003013   0.676    0.503
## avg_median_age                          0.001741   0.008759   0.199    0.843
## 
## Residual standard error: 0.1459 on 38 degrees of freedom
## Multiple R-squared:  0.1466, Adjusted R-squared:  -0.01063 
## F-statistic: 0.9324 on 7 and 38 DF,  p-value: 0.4931
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.168e-04 -1.970e-04 -6.525e-05  6.097e-05  1.287e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -0.0008098  0.0003252  -2.491  0.01750 * 
## total_weighted_visits_per_capita  0.0432413  0.0123645   3.497  0.00127 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003698 on 36 degrees of freedom
## Multiple R-squared:  0.2536, Adjusted R-squared:  0.2329 
## F-statistic: 12.23 on 1 and 36 DF,  p-value: 0.001269
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.897e-04 -1.743e-04  8.980e-06  1.559e-04  6.845e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -2.575e-04  1.519e-03  -0.170  0.86650   
## total_weighted_visits_per_capita  2.572e-02  1.311e-02   1.962  0.05915 . 
## percent_under_125000              2.952e-06  6.026e-06   0.490  0.62781   
## avg_household_size               -4.303e-04  3.385e-04  -1.271  0.21340   
## pop_density                      -1.038e-02  3.115e-02  -0.333  0.74123   
## `percent more than 1 occupant`    8.629e-05  2.606e-05   3.312  0.00242 **
## `percent more than 1 unit`       -7.327e-06  6.426e-06  -1.140  0.26326   
## avg_median_age                    1.561e-05  1.664e-05   0.938  0.35583   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002628 on 30 degrees of freedom
## Multiple R-squared:  0.6859, Adjusted R-squared:  0.6126 
## F-statistic: 9.358 on 7 and 30 DF,  p-value: 4.128e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.185921 -0.032834 -0.000385  0.045356  0.143458 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.01502    0.06327  -0.237   0.8137  
## total_weighted_visits_per_capita  5.69158    2.40601   2.366   0.0235 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07195 on 36 degrees of freedom
## Multiple R-squared:  0.1345, Adjusted R-squared:  0.1105 
## F-statistic: 5.596 on 1 and 36 DF,  p-value: 0.02351
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.104201 -0.042281 -0.006755  0.042113  0.113407 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.0021390  0.3802819   0.006   0.9955  
## total_weighted_visits_per_capita  5.8120535  3.2835752   1.770   0.0869 .
## percent_under_125000             -0.0003914  0.0015091  -0.259   0.7971  
## avg_household_size               -0.1149874  0.0847688  -1.356   0.1851  
## pop_density                      -0.3374718  7.8012335  -0.043   0.9658  
## `percent more than 1 occupant`    0.0164860  0.0065252   2.527   0.0170 *
## `percent more than 1 unit`       -0.0011749  0.0016093  -0.730   0.4710  
## avg_median_age                    0.0066973  0.0041675   1.607   0.1185  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06581 on 30 degrees of freedom
## Multiple R-squared:  0.3968, Adjusted R-squared:  0.256 
## F-statistic: 2.819 on 7 and 30 DF,  p-value: 0.02214
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.516e-04 -1.876e-04 -1.114e-04  5.683e-05  1.579e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -0.0005734  0.0004857  -1.181   0.2455  
## total_visit_hours_per_capita  0.0002272  0.0001240   1.832   0.0753 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004094 on 36 degrees of freedom
## Multiple R-squared:  0.08524,    Adjusted R-squared:  0.05983 
## F-statistic: 3.354 on 1 and 36 DF,  p-value: 0.07531
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.438e-04 -1.780e-04 -1.790e-06  1.105e-04  8.142e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     5.028e-05  1.601e-03   0.031   0.9751  
## total_visit_hours_per_capita   -7.840e-05  1.268e-04  -0.618   0.5409  
## percent_under_125000            1.167e-05  6.253e-06   1.867   0.0717 .
## avg_household_size             -2.299e-04  4.176e-04  -0.550   0.5861  
## pop_density                     6.098e-03  3.152e-02   0.193   0.8479  
## `percent more than 1 occupant`  6.577e-05  3.111e-05   2.114   0.0429 *
## `percent more than 1 unit`     -8.516e-06  7.054e-06  -1.207   0.2367  
## avg_median_age                  7.196e-06  1.737e-05   0.414   0.6816  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002774 on 30 degrees of freedom
## Multiple R-squared:  0.6501, Adjusted R-squared:  0.5684 
## F-statistic: 7.961 on 7 and 30 DF,  p-value: 1.847e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.136023 -0.044594 -0.004121  0.042284  0.176167 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.151297   0.091716   1.650    0.108
## total_visit_hours_per_capita -0.004952   0.023423  -0.211    0.834
## 
## Residual standard error: 0.0773 on 36 degrees of freedom
## Multiple R-squared:  0.00124,    Adjusted R-squared:  -0.0265 
## F-statistic: 0.0447 on 1 and 36 DF,  p-value: 0.8337
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.113492 -0.041534  0.006393  0.039090  0.124313 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     0.0130468  0.3817998   0.034    0.973
## total_visit_hours_per_capita   -0.0504630  0.0302363  -1.669    0.106
## percent_under_125000            0.0024509  0.0014915   1.643    0.111
## avg_household_size             -0.0131056  0.0996133  -0.132    0.896
## pop_density                     2.7469962  7.5172749   0.365    0.717
## `percent more than 1 occupant`  0.0078029  0.0074193   1.052    0.301
## `percent more than 1 unit`     -0.0008201  0.0016824  -0.487    0.629
## avg_median_age                  0.0041286  0.0041436   0.996    0.327
## 
## Residual standard error: 0.06615 on 30 degrees of freedom
## Multiple R-squared:  0.3904, Adjusted R-squared:  0.2481 
## F-statistic: 2.745 on 7 and 30 DF,  p-value: 0.02506
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.606e-04 -2.215e-04 -1.567e-04 -1.714e-05  1.635e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                           0.0002953  0.0001114   2.650   0.0119 *
## total_weighted_visit_hours_per_capita 0.0004252  0.0029544   0.144   0.8864  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004279 on 36 degrees of freedom
## Multiple R-squared:  0.000575,   Adjusted R-squared:  -0.02719 
## F-statistic: 0.02071 on 1 and 36 DF,  p-value: 0.8864
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.347e-04 -1.893e-04 -1.523e-05  1.196e-04  8.079e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            2.152e-04  1.619e-03   0.133   0.8951  
## total_weighted_visit_hours_per_capita  3.468e-04  3.949e-03   0.088   0.9306  
## percent_under_125000                   9.535e-06  5.328e-06   1.790   0.0836 .
## avg_household_size                    -3.841e-04  4.163e-04  -0.923   0.3636  
## pop_density                            5.313e-03  4.118e-02   0.129   0.8982  
## `percent more than 1 occupant`         7.714e-05  3.319e-05   2.324   0.0271 *
## `percent more than 1 unit`            -1.024e-05  7.179e-06  -1.427   0.1640  
## avg_median_age                         9.445e-06  1.880e-05   0.502   0.6191  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002791 on 30 degrees of freedom
## Multiple R-squared:  0.6457, Adjusted R-squared:  0.563 
## F-statistic:  7.81 on 7 and 30 DF,  p-value: 2.192e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.137387 -0.046480 -0.003128  0.046117  0.173188 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.14153    0.02004   7.063 2.72e-08 ***
## total_weighted_visit_hours_per_capita -0.32024    0.53137  -0.603    0.551    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07696 on 36 degrees of freedom
## Multiple R-squared:  0.009988,   Adjusted R-squared:  -0.01751 
## F-statistic: 0.3632 on 1 and 36 DF,  p-value: 0.5505
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11496 -0.04557  0.00504  0.03470  0.13051 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            0.062814   0.398794   0.158    0.876
## total_weighted_visit_hours_per_capita -0.574378   0.972977  -0.590    0.559
## percent_under_125000                   0.001191   0.001313   0.908    0.371
## avg_household_size                    -0.069366   0.102558  -0.676    0.504
## pop_density                            7.569896  10.144858   0.746    0.461
## `percent more than 1 occupant`         0.011237   0.008178   1.374    0.180
## `percent more than 1 unit`            -0.001394   0.001769  -0.788    0.437
## avg_median_age                         0.004083   0.004632   0.881    0.385
## 
## Residual standard error: 0.06876 on 30 degrees of freedom
## Multiple R-squared:  0.3414, Adjusted R-squared:  0.1878 
## F-statistic: 2.222 on 7 and 30 DF,  p-value: 0.06051
## 
## [1] "Cases start date: 2020-06-01"
## [1] "Visits start date: 2020-05-18"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.195e-04 -1.363e-04 -3.279e-05  5.671e-05  1.019e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0002694  0.0002003  -1.345   0.1855  
## total_weighted_visits_per_capita  0.0169219  0.0065824   2.571   0.0136 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000293 on 44 degrees of freedom
## Multiple R-squared:  0.1306, Adjusted R-squared:  0.1108 
## F-statistic: 6.609 on 1 and 44 DF,  p-value: 0.01361
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.358e-04 -1.179e-04 -1.160e-06  8.166e-05  3.809e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                      -5.213e-04  8.992e-04  -0.580   0.5655    
## total_weighted_visits_per_capita  5.794e-03  4.930e-03   1.175   0.2472    
## percent_under_125000              7.390e-06  3.076e-06   2.403   0.0213 *  
## avg_household_size               -2.197e-04  1.774e-04  -1.238   0.2232    
## pop_density                       5.617e-03  1.584e-02   0.355   0.7248    
## `percent more than 1 occupant`    5.810e-05  1.320e-05   4.401 8.46e-05 ***
## `percent more than 1 unit`       -5.788e-06  3.427e-06  -1.689   0.0994 .  
## avg_median_age                    1.410e-05  1.001e-05   1.408   0.1672    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001595 on 38 degrees of freedom
## Multiple R-squared:  0.7774, Adjusted R-squared:  0.7364 
## F-statistic: 18.96 on 7 and 38 DF,  p-value: 1.307e-10
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.195e-04 -1.363e-04 -3.279e-05  5.671e-05  1.019e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.0002694  0.0002003  -1.345   0.1855  
## total_weighted_visits_per_capita  0.0169219  0.0065824   2.571   0.0136 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000293 on 44 degrees of freedom
## Multiple R-squared:  0.1306, Adjusted R-squared:  0.1108 
## F-statistic: 6.609 on 1 and 44 DF,  p-value: 0.01361
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.358e-04 -1.179e-04 -1.160e-06  8.166e-05  3.809e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                      -5.213e-04  8.992e-04  -0.580   0.5655    
## total_weighted_visits_per_capita  5.794e-03  4.930e-03   1.175   0.2472    
## percent_under_125000              7.390e-06  3.076e-06   2.403   0.0213 *  
## avg_household_size               -2.197e-04  1.774e-04  -1.238   0.2232    
## pop_density                       5.617e-03  1.584e-02   0.355   0.7248    
## `percent more than 1 occupant`    5.810e-05  1.320e-05   4.401 8.46e-05 ***
## `percent more than 1 unit`       -5.788e-06  3.427e-06  -1.689   0.0994 .  
## avg_median_age                    1.410e-05  1.001e-05   1.408   0.1672    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001595 on 38 degrees of freedom
## Multiple R-squared:  0.7774, Adjusted R-squared:  0.7364 
## F-statistic: 18.96 on 7 and 38 DF,  p-value: 1.307e-10
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15931 -0.06458  0.00656  0.02233  0.63438 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      -0.04164    0.08071  -0.516   0.6085  
## total_weighted_visits_per_capita  4.93655    2.65270   1.861   0.0694 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1181 on 44 degrees of freedom
## Multiple R-squared:  0.07296,    Adjusted R-squared:  0.0519 
## F-statistic: 3.463 on 1 and 44 DF,  p-value: 0.06944
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13058 -0.05299 -0.01320  0.02217  0.61045 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -0.4995760  0.6726151  -0.743    0.462
## total_weighted_visits_per_capita  4.8705604  3.6877659   1.321    0.194
## percent_under_125000             -0.0005093  0.0023009  -0.221    0.826
## avg_household_size                0.0064562  0.1326961   0.049    0.961
## pop_density                      11.3951282 11.8489562   0.962    0.342
## `percent more than 1 occupant`    0.0100136  0.0098764   1.014    0.317
## `percent more than 1 unit`        0.0004586  0.0025631   0.179    0.859
## avg_median_age                    0.0091710  0.0074889   1.225    0.228
## 
## Residual standard error: 0.1193 on 38 degrees of freedom
## Multiple R-squared:  0.1823, Adjusted R-squared:  0.03162 
## F-statistic:  1.21 on 7 and 38 DF,  p-value: 0.3212
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.453e-04 -1.735e-04 -5.291e-05  6.572e-05  1.054e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -3.469e-04  2.375e-04  -1.461   0.1512  
## total_visit_hours_per_capita  1.468e-04  5.907e-05   2.485   0.0168 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002942 on 44 degrees of freedom
## Multiple R-squared:  0.1231, Adjusted R-squared:  0.1032 
## F-statistic: 6.176 on 1 and 44 DF,  p-value: 0.01683
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.392e-04 -1.163e-04 -1.430e-06  9.047e-05  4.006e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    -6.689e-05  8.799e-04  -0.076 0.939804    
## total_visit_hours_per_capita   -2.502e-05  4.093e-05  -0.611 0.544624    
## percent_under_125000            9.377e-06  3.036e-06   3.088 0.003749 ** 
## avg_household_size             -2.351e-04  1.792e-04  -1.312 0.197460    
## pop_density                     6.723e-03  1.665e-02   0.404 0.688629    
## `percent more than 1 occupant`  5.651e-05  1.329e-05   4.253 0.000132 ***
## `percent more than 1 unit`     -7.145e-06  3.320e-06  -2.152 0.037813 *  
## avg_median_age                  8.847e-06  9.534e-06   0.928 0.359318    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001616 on 38 degrees of freedom
## Multiple R-squared:  0.7715, Adjusted R-squared:  0.7295 
## F-statistic: 18.33 on 7 and 38 DF,  p-value: 2.1e-10
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.453e-04 -1.735e-04 -5.291e-05  6.572e-05  1.054e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -3.469e-04  2.375e-04  -1.461   0.1512  
## total_visit_hours_per_capita  1.468e-04  5.907e-05   2.485   0.0168 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002942 on 44 degrees of freedom
## Multiple R-squared:  0.1231, Adjusted R-squared:  0.1032 
## F-statistic: 6.176 on 1 and 44 DF,  p-value: 0.01683
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.392e-04 -1.163e-04 -1.430e-06  9.047e-05  4.006e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    -6.689e-05  8.799e-04  -0.076 0.939804    
## total_visit_hours_per_capita   -2.502e-05  4.093e-05  -0.611 0.544624    
## percent_under_125000            9.377e-06  3.036e-06   3.088 0.003749 ** 
## avg_household_size             -2.351e-04  1.792e-04  -1.312 0.197460    
## pop_density                     6.723e-03  1.665e-02   0.404 0.688629    
## `percent more than 1 occupant`  5.651e-05  1.329e-05   4.253 0.000132 ***
## `percent more than 1 unit`     -7.145e-06  3.320e-06  -2.152 0.037813 *  
## avg_median_age                  8.847e-06  9.534e-06   0.928 0.359318    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001616 on 38 degrees of freedom
## Multiple R-squared:  0.7715, Adjusted R-squared:  0.7295 
## F-statistic: 18.33 on 7 and 38 DF,  p-value: 2.1e-10
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11846 -0.06606 -0.00249  0.03358  0.68518 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.05128    0.09864   0.520    0.606
## total_visit_hours_per_capita  0.01359    0.02453   0.554    0.582
## 
## Residual standard error: 0.1222 on 44 degrees of freedom
## Multiple R-squared:  0.00693,    Adjusted R-squared:  -0.01564 
## F-statistic: 0.3071 on 1 and 44 DF,  p-value: 0.5823
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11006 -0.05495 -0.01101  0.01956  0.65720 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.2318234  0.6642416  -0.349    0.729
## total_visit_hours_per_capita    0.0049039  0.0308983   0.159    0.875
## percent_under_125000            0.0005441  0.0022918   0.237    0.814
## avg_household_size             -0.0066442  0.1352849  -0.049    0.961
## pop_density                    16.1763915 12.5680210   1.287    0.206
## `percent more than 1 occupant`  0.0084240  0.0100309   0.840    0.406
## `percent more than 1 unit`     -0.0005277  0.0025064  -0.211    0.834
## avg_median_age                  0.0056825  0.0071970   0.790    0.435
## 
## Residual standard error: 0.122 on 38 degrees of freedom
## Multiple R-squared:  0.1453, Adjusted R-squared:  -0.01216 
## F-statistic: 0.9228 on 7 and 38 DF,  p-value: 0.5
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.829e-04 -1.752e-04 -6.355e-05  6.608e-05  1.047e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           9.692e-05  9.691e-05    1.00    0.323
## total_weighted_visit_hours_per_capita 4.281e-03  2.692e-03    1.59    0.119
## 
## Residual standard error: 0.0003055 on 44 degrees of freedom
## Multiple R-squared:  0.05435,    Adjusted R-squared:  0.03286 
## F-statistic: 2.529 on 1 and 44 DF,  p-value: 0.119
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.311e-04 -1.028e-04 -7.120e-06  8.528e-05  3.579e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -4.436e-04  8.286e-04  -0.535  0.59550
## total_weighted_visit_hours_per_capita  3.349e-03  1.588e-03   2.109  0.04158
## percent_under_125000                   7.707e-06  2.782e-06   2.771  0.00861
## avg_household_size                    -1.839e-04  1.721e-04  -1.069  0.29194
## pop_density                            4.508e-03  1.500e-02   0.300  0.76544
## `percent more than 1 occupant`         5.593e-05  1.263e-05   4.429 7.76e-05
## `percent more than 1 unit`            -6.294e-06  3.166e-06  -1.988  0.05403
## avg_median_age                         1.164e-05  9.003e-06   1.294  0.20364
##                                          
## (Intercept)                              
## total_weighted_visit_hours_per_capita *  
## percent_under_125000                  ** 
## avg_household_size                       
## pop_density                              
## `percent more than 1 occupant`        ***
## `percent more than 1 unit`            .  
## avg_median_age                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001536 on 38 degrees of freedom
## Multiple R-squared:  0.7935, Adjusted R-squared:  0.7554 
## F-statistic: 20.86 on 7 and 38 DF,  p-value: 3.296e-11
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.829e-04 -1.752e-04 -6.355e-05  6.608e-05  1.047e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           9.692e-05  9.691e-05    1.00    0.323
## total_weighted_visit_hours_per_capita 4.281e-03  2.692e-03    1.59    0.119
## 
## Residual standard error: 0.0003055 on 44 degrees of freedom
## Multiple R-squared:  0.05435,    Adjusted R-squared:  0.03286 
## F-statistic: 2.529 on 1 and 44 DF,  p-value: 0.119
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.311e-04 -1.028e-04 -7.120e-06  8.528e-05  3.579e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -4.436e-04  8.286e-04  -0.535  0.59550
## total_weighted_visit_hours_per_capita  3.349e-03  1.588e-03   2.109  0.04158
## percent_under_125000                   7.707e-06  2.782e-06   2.771  0.00861
## avg_household_size                    -1.839e-04  1.721e-04  -1.069  0.29194
## pop_density                            4.508e-03  1.500e-02   0.300  0.76544
## `percent more than 1 occupant`         5.593e-05  1.263e-05   4.429 7.76e-05
## `percent more than 1 unit`            -6.294e-06  3.166e-06  -1.988  0.05403
## avg_median_age                         1.164e-05  9.003e-06   1.294  0.20364
##                                          
## (Intercept)                              
## total_weighted_visit_hours_per_capita *  
## percent_under_125000                  ** 
## avg_household_size                       
## pop_density                              
## `percent more than 1 occupant`        ***
## `percent more than 1 unit`            .  
## avg_median_age                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001536 on 38 degrees of freedom
## Multiple R-squared:  0.7935, Adjusted R-squared:  0.7554 
## F-statistic: 20.86 on 7 and 38 DF,  p-value: 3.296e-11
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11063 -0.07487 -0.00187  0.03042  0.68319 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.11479    0.03886   2.954  0.00502 **
## total_weighted_visit_hours_per_capita -0.30677    1.07957  -0.284  0.77762   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1225 on 44 degrees of freedom
## Multiple R-squared:  0.001832,   Adjusted R-squared:  -0.02085 
## F-statistic: 0.08075 on 1 and 44 DF,  p-value: 0.7776
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09421 -0.05810 -0.01052  0.02133  0.65349 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -0.1075567  0.6489387  -0.166    0.869
## total_weighted_visit_hours_per_capita -1.2901295  1.2435766  -1.037    0.306
## percent_under_125000                   0.0010747  0.0021785   0.493    0.625
## avg_household_size                    -0.0263744  0.1348052  -0.196    0.846
## pop_density                           17.7327435 11.7502807   1.509    0.140
## `percent more than 1 occupant`         0.0086013  0.0098914   0.870    0.390
## `percent more than 1 unit`            -0.0008274  0.0024796  -0.334    0.740
## avg_median_age                         0.0047738  0.0070509   0.677    0.502
## 
## Residual standard error: 0.1203 on 38 degrees of freedom
## Multiple R-squared:  0.1683, Adjusted R-squared:  0.01507 
## F-statistic: 1.098 on 7 and 38 DF,  p-value: 0.3839
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.080e-04 -1.496e-04 -3.208e-05  8.047e-05  9.638e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -0.0003510  0.0002233  -1.572  0.12417   
## total_weighted_visits_per_capita  0.0207598  0.0074240   2.796  0.00806 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002965 on 38 degrees of freedom
## Multiple R-squared:  0.1707, Adjusted R-squared:  0.1488 
## F-statistic: 7.819 on 1 and 38 DF,  p-value: 0.008065
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.382e-04 -1.411e-04 -1.687e-05  8.302e-05  3.875e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                      -5.491e-04  1.013e-03  -0.542  0.59168   
## total_weighted_visits_per_capita  3.786e-03  6.390e-03   0.592  0.55768   
## percent_under_125000              8.506e-06  3.750e-06   2.269  0.03018 * 
## avg_household_size               -2.080e-04  2.165e-04  -0.961  0.34375   
## pop_density                       6.210e-03  1.780e-02   0.349  0.72953   
## `percent more than 1 occupant`    5.666e-05  1.645e-05   3.444  0.00162 **
## `percent more than 1 unit`       -6.068e-06  4.030e-06  -1.506  0.14192   
## avg_median_age                    1.406e-05  1.160e-05   1.212  0.23421   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001713 on 32 degrees of freedom
## Multiple R-squared:  0.7669, Adjusted R-squared:  0.7159 
## F-statistic: 15.04 on 7 and 32 DF,  p-value: 1.63e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.113067 -0.044690  0.009737  0.037552  0.106665 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       0.04248    0.04444   0.956    0.345
## total_weighted_visits_per_capita  1.99215    1.47784   1.348    0.186
## 
## Residual standard error: 0.05902 on 38 degrees of freedom
## Multiple R-squared:  0.04564,    Adjusted R-squared:  0.02052 
## F-statistic: 1.817 on 1 and 38 DF,  p-value: 0.1856
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.071254 -0.031145 -0.001871  0.029260  0.140152 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      -0.2424381  0.3029336  -0.800    0.429
## total_weighted_visits_per_capita -1.1983856  1.9102718  -0.627    0.535
## percent_under_125000              0.0017441  0.0011209   1.556    0.130
## avg_household_size                0.0317463  0.0647063   0.491    0.627
## pop_density                       7.3373045  5.3221267   1.379    0.178
## `percent more than 1 occupant`    0.0025493  0.0049180   0.518    0.608
## `percent more than 1 unit`        0.0001289  0.0012046   0.107    0.915
## avg_median_age                    0.0034196  0.0034669   0.986    0.331
## 
## Residual standard error: 0.0512 on 32 degrees of freedom
## Multiple R-squared:  0.3952, Adjusted R-squared:  0.2629 
## F-statistic: 2.987 on 7 and 32 DF,  p-value: 0.01575
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.892e-04 -1.607e-04 -6.383e-05  5.579e-05  1.033e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                  -3.897e-04  2.922e-04  -1.334   0.1901  
## total_visit_hours_per_capita  1.613e-04  7.158e-05   2.253   0.0301 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003058 on 38 degrees of freedom
## Multiple R-squared:  0.1178, Adjusted R-squared:  0.09461 
## F-statistic: 5.075 on 1 and 38 DF,  p-value: 0.03012
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.357e-04 -1.303e-04 -2.100e-07  9.652e-05  4.050e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    -1.799e-04  1.010e-03  -0.178  0.85979   
## total_visit_hours_per_capita   -3.741e-05  5.150e-05  -0.726  0.47291   
## percent_under_125000            1.050e-05  3.376e-06   3.110  0.00392 **
## avg_household_size             -2.135e-04  2.162e-04  -0.988  0.33076   
## pop_density                     2.635e-03  1.903e-02   0.138  0.89073   
## `percent more than 1 occupant`  5.567e-05  1.610e-05   3.459  0.00156 **
## `percent more than 1 unit`     -7.086e-06  3.938e-06  -1.799  0.08144 . 
## avg_median_age                  9.791e-06  1.070e-05   0.915  0.36716   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001708 on 32 degrees of freedom
## Multiple R-squared:  0.7682, Adjusted R-squared:  0.7175 
## F-statistic: 15.15 on 7 and 32 DF,  p-value: 1.5e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10074 -0.04227  0.00698  0.03892  0.11339 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  0.068489   0.057470   1.192    0.241
## total_visit_hours_per_capita 0.008092   0.014081   0.575    0.569
## 
## Residual standard error: 0.06016 on 38 degrees of freedom
## Multiple R-squared:  0.008615,   Adjusted R-squared:  -0.01747 
## F-statistic: 0.3302 on 1 and 38 DF,  p-value: 0.5689
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.071738 -0.028016 -0.001278  0.029717  0.140159 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -0.2447925  0.3028603  -0.808    0.425
## total_visit_hours_per_capita   -0.0093351  0.0154441  -0.604    0.550
## percent_under_125000            0.0015797  0.0010124   1.560    0.129
## avg_household_size              0.0280105  0.0648226   0.432    0.669
## pop_density                     5.3571514  5.7060229   0.939    0.355
## `percent more than 1 occupant`  0.0034951  0.0048265   0.724    0.474
## `percent more than 1 unit`      0.0002089  0.0011810   0.177    0.861
## avg_median_age                  0.0039678  0.0032097   1.236    0.225
## 
## Residual standard error: 0.05122 on 32 degrees of freedom
## Multiple R-squared:  0.3946, Adjusted R-squared:  0.2622 
## F-statistic:  2.98 on 7 and 32 DF,  p-value: 0.01593
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.712e-04 -1.540e-04 -4.430e-05  5.973e-05  8.882e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                           -7.459e-05  1.078e-04  -0.692  0.49321   
## total_weighted_visit_hours_per_capita  1.142e-02  3.349e-03   3.410  0.00155 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002849 on 38 degrees of freedom
## Multiple R-squared:  0.2343, Adjusted R-squared:  0.2141 
## F-statistic: 11.63 on 1 and 38 DF,  p-value: 0.001553
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.348e-04 -9.974e-05 -1.346e-05  9.262e-05  3.635e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -4.432e-04  9.015e-04  -0.492 0.626333
## total_weighted_visit_hours_per_capita  5.635e-03  2.350e-03   2.399 0.022461
## percent_under_125000                   6.839e-06  3.180e-06   2.151 0.039156
## avg_household_size                    -1.810e-04  2.005e-04  -0.903 0.373383
## pop_density                            3.056e-03  1.634e-02   0.187 0.852868
## `percent more than 1 occupant`         5.473e-05  1.487e-05   3.680 0.000853
## `percent more than 1 unit`            -6.263e-06  3.618e-06  -1.731 0.093108
## avg_median_age                         1.148e-05  9.769e-06   1.175 0.248476
##                                          
## (Intercept)                              
## total_weighted_visit_hours_per_capita *  
## percent_under_125000                  *  
## avg_household_size                       
## pop_density                              
## `percent more than 1 occupant`        ***
## `percent more than 1 unit`            .  
## avg_median_age                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001586 on 32 degrees of freedom
## Multiple R-squared:  0.8003, Adjusted R-squared:  0.7566 
## F-statistic: 18.32 on 7 and 32 DF,  p-value: 1.52e-09
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.11977 -0.04318  0.01241  0.03873  0.11264 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.07155    0.02225   3.216  0.00265 **
## total_weighted_visit_hours_per_capita  1.00892    0.69107   1.460  0.15253   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.05879 on 38 degrees of freedom
## Multiple R-squared:  0.05311,    Adjusted R-squared:  0.02819 
## F-statistic: 2.131 on 1 and 38 DF,  p-value: 0.1525
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.068390 -0.029075 -0.003487  0.029649  0.139536 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                           -0.2900661  0.2910668  -0.997    0.326
## total_weighted_visit_hours_per_capita -0.4810461  0.7586074  -0.634    0.531
## percent_under_125000                   0.0016162  0.0010267   1.574    0.125
## avg_household_size                     0.0284715  0.0647361   0.440    0.663
## pop_density                            7.1622364  5.2767648   1.357    0.184
## `percent more than 1 occupant`         0.0032003  0.0048015   0.667    0.510
## `percent more than 1 unit`             0.0002819  0.0011683   0.241    0.811
## avg_median_age                         0.0042988  0.0031541   1.363    0.182
## 
## Residual standard error: 0.0512 on 32 degrees of freedom
## Multiple R-squared:  0.3953, Adjusted R-squared:  0.2631 
## F-statistic: 2.989 on 7 and 32 DF,  p-value: 0.0157
## 
## [1] "Cases start date: 2020-06-08"
## [1] "Visits start date: 2020-05-25"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.596e-04 -2.170e-04 -1.253e-04  2.925e-05  1.273e-03 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.0002322  0.0003018   0.769    0.446
## total_weighted_visits_per_capita 0.0009527  0.0141755   0.067    0.947
## 
## Residual standard error: 0.0003632 on 44 degrees of freedom
## Multiple R-squared:  0.0001026,  Adjusted R-squared:  -0.02262 
## F-statistic: 0.004517 on 1 and 44 DF,  p-value: 0.9467
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.667e-04 -9.677e-05 -1.103e-05  9.480e-05  5.186e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       1.001e-03  1.050e-03   0.953 0.346524    
## total_weighted_visits_per_capita -1.212e-02  8.889e-03  -1.363 0.180904    
## percent_under_125000              1.217e-05  3.381e-06   3.600 0.000908 ***
## avg_household_size               -4.569e-04  2.121e-04  -2.154 0.037663 *  
## pop_density                       2.600e-03  2.013e-02   0.129 0.897905    
## `percent more than 1 occupant`    6.891e-05  1.565e-05   4.402 8.42e-05 ***
## `percent more than 1 unit`       -1.262e-05  4.219e-06  -2.992 0.004847 ** 
## avg_median_age                    9.313e-07  1.103e-05   0.084 0.933128    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000189 on 38 degrees of freedom
## Multiple R-squared:  0.7661, Adjusted R-squared:  0.723 
## F-statistic: 17.78 on 7 and 38 DF,  p-value: 3.242e-10
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.596e-04 -2.170e-04 -1.253e-04  2.925e-05  1.273e-03 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.0002322  0.0003018   0.769    0.446
## total_weighted_visits_per_capita 0.0009527  0.0141755   0.067    0.947
## 
## Residual standard error: 0.0003632 on 44 degrees of freedom
## Multiple R-squared:  0.0001026,  Adjusted R-squared:  -0.02262 
## F-statistic: 0.004517 on 1 and 44 DF,  p-value: 0.9467
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.667e-04 -9.677e-05 -1.103e-05  9.480e-05  5.186e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       1.001e-03  1.050e-03   0.953 0.346524    
## total_weighted_visits_per_capita -1.212e-02  8.889e-03  -1.363 0.180904    
## percent_under_125000              1.217e-05  3.381e-06   3.600 0.000908 ***
## avg_household_size               -4.569e-04  2.121e-04  -2.154 0.037663 *  
## pop_density                       2.600e-03  2.013e-02   0.129 0.897905    
## `percent more than 1 occupant`    6.891e-05  1.565e-05   4.402 8.42e-05 ***
## `percent more than 1 unit`       -1.262e-05  4.219e-06  -2.992 0.004847 ** 
## avg_median_age                    9.313e-07  1.103e-05   0.084 0.933128    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000189 on 38 degrees of freedom
## Multiple R-squared:  0.7661, Adjusted R-squared:  0.723 
## F-statistic: 17.78 on 7 and 38 DF,  p-value: 3.242e-10
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.105987 -0.061564 -0.002076  0.062598  0.127083 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       0.19163    0.05835   3.284  0.00201 **
## total_weighted_visits_per_capita -4.70959    2.74090  -1.718  0.09278 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07022 on 44 degrees of freedom
## Multiple R-squared:  0.06288,    Adjusted R-squared:  0.04158 
## F-statistic: 2.952 on 1 and 44 DF,  p-value: 0.09278
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.08913 -0.04461 -0.01274  0.03257  0.14564 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.380e-01  3.439e-01   0.401   0.6904  
## total_weighted_visits_per_capita -4.816e+00  2.910e+00  -1.655   0.1062  
## percent_under_125000              2.830e-03  1.107e-03   2.557   0.0147 *
## avg_household_size               -2.984e-02  6.944e-02  -0.430   0.6698  
## pop_density                      -8.780e+00  6.590e+00  -1.332   0.1907  
## `percent more than 1 occupant`    3.209e-03  5.124e-03   0.626   0.5349  
## `percent more than 1 unit`       -9.703e-04  1.381e-03  -0.702   0.4867  
## avg_median_age                    4.986e-05  3.609e-03   0.014   0.9891  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06188 on 38 degrees of freedom
## Multiple R-squared:  0.3715, Adjusted R-squared:  0.2557 
## F-statistic: 3.209 on 7 and 38 DF,  p-value: 0.009033
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004349 -0.0001933 -0.0001361  0.0000503  0.0012534 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -1.314e-05  2.753e-04  -0.048    0.962
## total_visit_hours_per_capita  8.362e-05  8.516e-05   0.982    0.331
## 
## Residual standard error: 0.0003593 on 44 degrees of freedom
## Multiple R-squared:  0.02145,    Adjusted R-squared:  -0.0007931 
## F-statistic: 0.9643 on 1 and 44 DF,  p-value: 0.3315
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.419e-04 -1.045e-04 -3.820e-06  1.086e-04  5.170e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     7.694e-04  1.010e-03   0.762 0.450955    
## total_visit_hours_per_capita   -7.361e-05  4.977e-05  -1.479 0.147382    
## percent_under_125000            1.272e-05  3.420e-06   3.721 0.000640 ***
## avg_household_size             -3.749e-04  2.103e-04  -1.783 0.082621 .  
## pop_density                    -7.751e-03  1.809e-02  -0.429 0.670675    
## `percent more than 1 occupant`  6.334e-05  1.560e-05   4.060 0.000236 ***
## `percent more than 1 unit`     -1.057e-05  3.860e-06  -2.738 0.009347 ** 
## avg_median_age                 -7.846e-07  1.107e-05  -0.071 0.943886    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001882 on 38 degrees of freedom
## Multiple R-squared:  0.768,  Adjusted R-squared:  0.7252 
## F-statistic: 17.97 on 7 and 38 DF,  p-value: 2.788e-10
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004349 -0.0001933 -0.0001361  0.0000503  0.0012534 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -1.314e-05  2.753e-04  -0.048    0.962
## total_visit_hours_per_capita  8.362e-05  8.516e-05   0.982    0.331
## 
## Residual standard error: 0.0003593 on 44 degrees of freedom
## Multiple R-squared:  0.02145,    Adjusted R-squared:  -0.0007931 
## F-statistic: 0.9643 on 1 and 44 DF,  p-value: 0.3315
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.419e-04 -1.045e-04 -3.820e-06  1.086e-04  5.170e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     7.694e-04  1.010e-03   0.762 0.450955    
## total_visit_hours_per_capita   -7.361e-05  4.977e-05  -1.479 0.147382    
## percent_under_125000            1.272e-05  3.420e-06   3.721 0.000640 ***
## avg_household_size             -3.749e-04  2.103e-04  -1.783 0.082621 .  
## pop_density                    -7.751e-03  1.809e-02  -0.429 0.670675    
## `percent more than 1 occupant`  6.334e-05  1.560e-05   4.060 0.000236 ***
## `percent more than 1 unit`     -1.057e-05  3.860e-06  -2.738 0.009347 ** 
## avg_median_age                 -7.846e-07  1.107e-05  -0.071 0.943886    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001882 on 38 degrees of freedom
## Multiple R-squared:  0.768,  Adjusted R-squared:  0.7252 
## F-statistic: 17.97 on 7 and 38 DF,  p-value: 2.788e-10
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.12802 -0.05867 -0.02046  0.06770  0.13314 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.04204    0.05503   0.764    0.449
## total_visit_hours_per_capita  0.01605    0.01702   0.943    0.351
## 
## Residual standard error: 0.07181 on 44 degrees of freedom
## Multiple R-squared:  0.0198, Adjusted R-squared:  -0.002477 
## F-statistic: 0.8888 on 1 and 44 DF,  p-value: 0.351
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09745 -0.04473 -0.01797  0.04165  0.14219 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    -2.323e-02  3.438e-01  -0.068   0.9465  
## total_visit_hours_per_capita    6.639e-05  1.694e-02   0.004   0.9969  
## percent_under_125000            2.646e-03  1.164e-03   2.273   0.0287 *
## avg_household_size             -1.231e-02  7.158e-02  -0.172   0.8644  
## pop_density                    -1.352e+01  6.156e+00  -2.196   0.0342 *
## `percent more than 1 occupant`  2.176e-03  5.310e-03   0.410   0.6843  
## `percent more than 1 unit`     -6.355e-05  1.314e-03  -0.048   0.9617  
## avg_median_age                  2.383e-04  3.769e-03   0.063   0.9499  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06407 on 38 degrees of freedom
## Multiple R-squared:  0.3262, Adjusted R-squared:  0.2021 
## F-statistic: 2.628 on 7 and 38 DF,  p-value: 0.02567
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.679e-04 -2.053e-04 -1.265e-04  4.757e-05  1.274e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.0003296  0.0001256   2.625   0.0119 *
## total_weighted_visit_hours_per_capita -0.0036929  0.0054214  -0.681   0.4993  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003613 on 44 degrees of freedom
## Multiple R-squared:  0.01044,    Adjusted R-squared:  -0.01205 
## F-statistic: 0.464 on 1 and 44 DF,  p-value: 0.4993
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.734e-04 -1.148e-04 -8.080e-06  1.027e-04  5.162e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            6.632e-04  1.053e-03   0.630 0.532629
## total_weighted_visit_hours_per_capita -1.178e-03  3.805e-03  -0.310 0.758573
## percent_under_125000                   1.182e-05  3.460e-06   3.417 0.001523
## avg_household_size                    -4.206e-04  2.160e-04  -1.948 0.058864
## pop_density                           -6.757e-03  2.031e-02  -0.333 0.741211
## `percent more than 1 occupant`         6.580e-05  1.597e-05   4.120 0.000198
## `percent more than 1 unit`            -1.052e-05  4.001e-06  -2.628 0.012307
## avg_median_age                         7.793e-07  1.145e-05   0.068 0.946087
##                                          
## (Intercept)                              
## total_weighted_visit_hours_per_capita    
## percent_under_125000                  ** 
## avg_household_size                    .  
## pop_density                              
## `percent more than 1 occupant`        ***
## `percent more than 1 unit`            *  
## avg_median_age                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001933 on 38 degrees of freedom
## Multiple R-squared:  0.7552, Adjusted R-squared:  0.7101 
## F-statistic: 16.75 on 7 and 38 DF,  p-value: 7.403e-10
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.679e-04 -2.053e-04 -1.265e-04  4.757e-05  1.274e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.0003296  0.0001256   2.625   0.0119 *
## total_weighted_visit_hours_per_capita -0.0036929  0.0054214  -0.681   0.4993  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003613 on 44 degrees of freedom
## Multiple R-squared:  0.01044,    Adjusted R-squared:  -0.01205 
## F-statistic: 0.464 on 1 and 44 DF,  p-value: 0.4993
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.734e-04 -1.148e-04 -8.080e-06  1.027e-04  5.162e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            6.632e-04  1.053e-03   0.630 0.532629
## total_weighted_visit_hours_per_capita -1.178e-03  3.805e-03  -0.310 0.758573
## percent_under_125000                   1.182e-05  3.460e-06   3.417 0.001523
## avg_household_size                    -4.206e-04  2.160e-04  -1.948 0.058864
## pop_density                           -6.757e-03  2.031e-02  -0.333 0.741211
## `percent more than 1 occupant`         6.580e-05  1.597e-05   4.120 0.000198
## `percent more than 1 unit`            -1.052e-05  4.001e-06  -2.628 0.012307
## avg_median_age                         7.793e-07  1.145e-05   0.068 0.946087
##                                          
## (Intercept)                              
## total_weighted_visit_hours_per_capita    
## percent_under_125000                  ** 
## avg_household_size                    .  
## pop_density                              
## `percent more than 1 occupant`        ***
## `percent more than 1 unit`            *  
## avg_median_age                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001933 on 38 degrees of freedom
## Multiple R-squared:  0.7552, Adjusted R-squared:  0.7101 
## F-statistic: 16.75 on 7 and 38 DF,  p-value: 7.403e-10
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09942 -0.05932 -0.01322  0.06175  0.13935 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.12471    0.02465   5.059 7.94e-06 ***
## total_weighted_visit_hours_per_capita -1.51365    1.06430  -1.422    0.162    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07092 on 44 degrees of freedom
## Multiple R-squared:  0.04395,    Adjusted R-squared:  0.02222 
## F-statistic: 2.023 on 1 and 44 DF,  p-value: 0.162
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.09690 -0.04186 -0.01311  0.04376  0.14131 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            4.228e-02  3.452e-01   0.122   0.9032  
## total_weighted_visit_hours_per_capita -1.143e+00  1.247e+00  -0.917   0.3650  
## percent_under_125000                   2.756e-03  1.134e-03   2.430   0.0199 *
## avg_household_size                    -1.999e-02  7.078e-02  -0.282   0.7792  
## pop_density                           -1.103e+01  6.658e+00  -1.657   0.1058  
## `percent more than 1 occupant`         1.688e-03  5.236e-03   0.322   0.7489  
## `percent more than 1 unit`            -2.307e-04  1.311e-03  -0.176   0.8613  
## avg_median_age                        -3.666e-04  3.753e-03  -0.098   0.9227  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06337 on 38 degrees of freedom
## Multiple R-squared:  0.3408, Adjusted R-squared:  0.2193 
## F-statistic: 2.806 on 7 and 38 DF,  p-value: 0.01859
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.041e-04 -2.097e-04 -1.439e-04  3.954e-05  1.232e-03 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.0001836  0.0003276   0.560    0.578
## total_weighted_visits_per_capita 0.0047850  0.0155244   0.308    0.760
## 
## Residual standard error: 0.0003733 on 39 degrees of freedom
## Multiple R-squared:  0.00243,    Adjusted R-squared:  -0.02315 
## F-statistic: 0.095 on 1 and 39 DF,  p-value: 0.7596
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.545e-04 -9.633e-05 -1.360e-05  1.025e-04  5.081e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       7.674e-04  1.156e-03   0.664 0.511347    
## total_weighted_visits_per_capita -1.327e-02  1.021e-02  -1.300 0.202518    
## percent_under_125000              1.305e-05  3.705e-06   3.523 0.001274 ** 
## avg_household_size               -4.203e-04  2.489e-04  -1.689 0.100716    
## pop_density                       4.002e-03  2.272e-02   0.176 0.861231    
## `percent more than 1 occupant`    6.785e-05  1.844e-05   3.680 0.000827 ***
## `percent more than 1 unit`       -1.249e-05  4.793e-06  -2.605 0.013678 *  
## avg_median_age                    3.238e-06  1.228e-05   0.264 0.793585    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001994 on 33 degrees of freedom
## Multiple R-squared:  0.7592, Adjusted R-squared:  0.7081 
## F-statistic: 14.86 on 7 and 33 DF,  p-value: 1.412e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.101075 -0.053529  0.002157  0.055626  0.116961 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                        0.1870     0.0586   3.191   0.0028 **
## total_weighted_visits_per_capita  -3.9818     2.7770  -1.434   0.1596   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06677 on 39 degrees of freedom
## Multiple R-squared:  0.05008,    Adjusted R-squared:  0.02572 
## F-statistic: 2.056 on 1 and 39 DF,  p-value: 0.1596
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.103549 -0.047682  0.000296  0.039516  0.133025 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       3.200e-01  3.650e-01   0.877   0.3870  
## total_weighted_visits_per_capita -4.746e+00  3.223e+00  -1.472   0.1504  
## percent_under_125000              2.340e-03  1.170e-03   2.000   0.0538 .
## avg_household_size               -7.832e-02  7.858e-02  -0.997   0.3262  
## pop_density                      -6.627e+00  7.173e+00  -0.924   0.3623  
## `percent more than 1 occupant`    5.807e-03  5.822e-03   0.997   0.3259  
## `percent more than 1 unit`       -1.714e-03  1.513e-03  -1.133   0.2655  
## avg_median_age                   -4.646e-05  3.876e-03  -0.012   0.9905  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06295 on 33 degrees of freedom
## Multiple R-squared:  0.2855, Adjusted R-squared:  0.1339 
## F-statistic: 1.884 on 7 and 33 DF,  p-value: 0.1042
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.185e-04 -2.171e-04 -1.464e-04  9.693e-05  1.219e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  -0.0001020  0.0004300  -0.237    0.814
## total_visit_hours_per_capita  0.0001195  0.0001323   0.903    0.372
## 
## Residual standard error: 0.0003699 on 39 degrees of freedom
## Multiple R-squared:  0.0205, Adjusted R-squared:  -0.004617 
## F-statistic: 0.8162 on 1 and 39 DF,  p-value: 0.3719
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.198e-04 -1.144e-04 -8.700e-07  1.060e-04  4.818e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     1.223e-03  1.131e-03   1.081 0.287379    
## total_visit_hours_per_capita   -1.861e-04  8.253e-05  -2.255 0.030884 *  
## percent_under_125000            1.357e-05  3.545e-06   3.830 0.000544 ***
## avg_household_size             -5.063e-04  2.420e-04  -2.093 0.044145 *  
## pop_density                    -6.501e-03  1.910e-02  -0.340 0.735722    
## `percent more than 1 occupant`  7.819e-05  1.835e-05   4.261 0.000160 ***
## `percent more than 1 unit`     -1.403e-05  4.588e-06  -3.059 0.004389 ** 
## avg_median_age                  5.654e-06  1.177e-05   0.480 0.634118    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0001903 on 33 degrees of freedom
## Multiple R-squared:  0.7806, Adjusted R-squared:  0.7341 
## F-statistic: 16.78 on 7 and 33 DF,  p-value: 3.228e-09
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.10739 -0.06313 -0.01327  0.06127  0.12126 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.07079    0.07945   0.891    0.378
## total_visit_hours_per_capita  0.01040    0.02445   0.426    0.673
## 
## Residual standard error: 0.06835 on 39 degrees of freedom
## Multiple R-squared:  0.004621,   Adjusted R-squared:  -0.0209 
## F-statistic: 0.1811 on 1 and 39 DF,  p-value: 0.6728
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.091260 -0.049282 -0.004879  0.038839  0.128787 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     2.396e-01  3.854e-01   0.622   0.5384  
## total_visit_hours_per_capita   -1.030e-02  2.813e-02  -0.366   0.7167  
## percent_under_125000            2.200e-03  1.208e-03   1.821   0.0777 .
## avg_household_size             -7.495e-02  8.247e-02  -0.909   0.3700  
## pop_density                    -1.149e+01  6.510e+00  -1.764   0.0869 .
## `percent more than 1 occupant`  5.847e-03  6.255e-03   0.935   0.3567  
## `percent more than 1 unit`     -1.124e-03  1.564e-03  -0.719   0.4772  
## avg_median_age                  5.658e-05  4.012e-03   0.014   0.9888  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06485 on 33 degrees of freedom
## Multiple R-squared:  0.2416, Adjusted R-squared:  0.08076 
## F-statistic: 1.502 on 7 and 33 DF,  p-value: 0.2009
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.854e-04 -2.111e-04 -1.436e-04  3.168e-05  1.245e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.0003069  0.0001666   1.842   0.0731 .
## total_weighted_visit_hours_per_capita -0.0012097  0.0078819  -0.153   0.8788  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003736 on 39 degrees of freedom
## Multiple R-squared:  0.0006036,  Adjusted R-squared:  -0.02502 
## F-statistic: 0.02355 on 1 and 39 DF,  p-value: 0.8788
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0003604 -0.0001192 -0.0000103  0.0001178  0.0005016 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            5.395e-04  1.165e-03   0.463  0.64644   
## total_weighted_visit_hours_per_capita -3.160e-03  5.402e-03  -0.585  0.56259   
## percent_under_125000                   1.281e-05  3.792e-06   3.377  0.00189 **
## avg_household_size                    -4.190e-04  2.568e-04  -1.632  0.11219   
## pop_density                           -4.367e-03  2.262e-02  -0.193  0.84808   
## `percent more than 1 occupant`         6.643e-05  1.877e-05   3.540  0.00122 **
## `percent more than 1 unit`            -1.077e-05  4.651e-06  -2.316  0.02689 * 
## avg_median_age                         3.058e-06  1.252e-05   0.244  0.80860   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002034 on 33 degrees of freedom
## Multiple R-squared:  0.7494, Adjusted R-squared:  0.6963 
## F-statistic:  14.1 on 7 and 33 DF,  p-value: 2.637e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.105839 -0.059967  0.003084  0.055050  0.124254 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.11908    0.03044   3.912 0.000356 ***
## total_weighted_visit_hours_per_capita -0.74702    1.44032  -0.519 0.606936    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06827 on 39 degrees of freedom
## Multiple R-squared:  0.00685,    Adjusted R-squared:  -0.01862 
## F-statistic: 0.269 on 1 and 39 DF,  p-value: 0.6069
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.092833 -0.046584 -0.005336  0.040424  0.129737 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            2.157e-01  3.719e-01   0.580    0.566  
## total_weighted_visit_hours_per_capita -5.362e-01  1.724e+00  -0.311    0.758  
## percent_under_125000                   2.193e-03  1.210e-03   1.813    0.079 .
## avg_household_size                    -7.306e-02  8.193e-02  -0.892    0.379  
## pop_density                           -1.071e+01  7.217e+00  -1.483    0.147  
## `percent more than 1 occupant`         5.235e-03  5.988e-03   0.874    0.388  
## `percent more than 1 unit`            -1.004e-03  1.484e-03  -0.676    0.504  
## avg_median_age                        -9.610e-05  3.996e-03  -0.024    0.981  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.06489 on 33 degrees of freedom
## Multiple R-squared:  0.2408, Adjusted R-squared:  0.07973 
## F-statistic: 1.495 on 7 and 33 DF,  p-value: 0.2033
## 
## [1] "Cases start date: 2020-06-15"
## [1] "Visits start date: 2020-06-01"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.358e-04 -2.401e-04 -1.626e-04  8.346e-05  1.719e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.0008206  0.0003888   2.111   0.0405 *
## total_weighted_visits_per_capita -0.0196402  0.0173479  -1.132   0.2637  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004642 on 44 degrees of freedom
## Multiple R-squared:  0.02831,    Adjusted R-squared:  0.006222 
## F-statistic: 1.282 on 1 and 44 DF,  p-value: 0.2637
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004713 -0.0001408 -0.0000550  0.0001522  0.0008197 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       1.526e-03  1.575e-03   0.969  0.33865    
## total_weighted_visits_per_capita -1.598e-03  1.142e-02  -0.140  0.88944    
## percent_under_125000              1.358e-05  5.001e-06   2.715  0.00992 ** 
## avg_household_size               -5.860e-04  3.140e-04  -1.866  0.06975 .  
## pop_density                      -2.096e-02  2.708e-02  -0.774  0.44372    
## `percent more than 1 occupant`    8.542e-05  2.309e-05   3.700  0.00068 ***
## `percent more than 1 unit`       -1.444e-05  5.942e-06  -2.431  0.01990 *  
## avg_median_age                   -7.100e-06  1.651e-05  -0.430  0.66958    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002808 on 38 degrees of freedom
## Multiple R-squared:  0.6929, Adjusted R-squared:  0.6364 
## F-statistic: 12.25 on 7 and 38 DF,  p-value: 4.507e-08
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.358e-04 -2.401e-04 -1.626e-04  8.346e-05  1.719e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.0008206  0.0003888   2.111   0.0405 *
## total_weighted_visits_per_capita -0.0196402  0.0173479  -1.132   0.2637  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004642 on 44 degrees of freedom
## Multiple R-squared:  0.02831,    Adjusted R-squared:  0.006222 
## F-statistic: 1.282 on 1 and 44 DF,  p-value: 0.2637
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0004713 -0.0001408 -0.0000550  0.0001522  0.0008197 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       1.526e-03  1.575e-03   0.969  0.33865    
## total_weighted_visits_per_capita -1.598e-03  1.142e-02  -0.140  0.88944    
## percent_under_125000              1.358e-05  5.001e-06   2.715  0.00992 ** 
## avg_household_size               -5.860e-04  3.140e-04  -1.866  0.06975 .  
## pop_density                      -2.096e-02  2.708e-02  -0.774  0.44372    
## `percent more than 1 occupant`    8.542e-05  2.309e-05   3.700  0.00068 ***
## `percent more than 1 unit`       -1.444e-05  5.942e-06  -2.431  0.01990 *  
## avg_median_age                   -7.100e-06  1.651e-05  -0.430  0.66958    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002808 on 38 degrees of freedom
## Multiple R-squared:  0.6929, Adjusted R-squared:  0.6364 
## F-statistic: 12.25 on 7 and 38 DF,  p-value: 4.507e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16592 -0.06489 -0.02457  0.01964  0.54329 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                        0.3102     0.1256   2.470   0.0175 *
## total_weighted_visits_per_capita  -6.9968     5.6039  -1.249   0.2184  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1499 on 44 degrees of freedom
## Multiple R-squared:  0.03422,    Adjusted R-squared:  0.01227 
## F-statistic: 1.559 on 1 and 44 DF,  p-value: 0.2184
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21302 -0.07945 -0.02698  0.04045  0.53404 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       1.113e+00  8.780e-01   1.268    0.213
## total_weighted_visits_per_capita -7.630e+00  6.365e+00  -1.199    0.238
## percent_under_125000              5.236e-05  2.788e-03   0.019    0.985
## avg_household_size               -9.152e-02  1.751e-01  -0.523    0.604
## pop_density                      -1.778e+01  1.510e+01  -1.178    0.246
## `percent more than 1 occupant`    7.972e-04  1.287e-02   0.062    0.951
## `percent more than 1 unit`       -1.540e-03  3.313e-03  -0.465    0.645
## avg_median_age                   -1.113e-02  9.204e-03  -1.209    0.234
## 
## Residual standard error: 0.1566 on 38 degrees of freedom
## Multiple R-squared:  0.09072,    Adjusted R-squared:  -0.07678 
## F-statistic: 0.5416 on 7 and 38 DF,  p-value: 0.7974
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.450e-04 -2.679e-04 -1.633e-04  9.525e-05  1.722e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   5.142e-04  2.209e-04   2.327   0.0246 *
## total_visit_hours_per_capita -4.181e-05  6.916e-05  -0.604   0.5486  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000469 on 44 degrees of freedom
## Multiple R-squared:  0.008237,   Adjusted R-squared:  -0.0143 
## F-statistic: 0.3654 on 1 and 44 DF,  p-value: 0.5486
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.652e-04 -1.385e-04 -5.818e-05  1.484e-04  8.211e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     1.548e-03  1.517e-03   1.020  0.31397   
## total_visit_hours_per_capita   -1.596e-05  4.558e-05  -0.350  0.72819   
## percent_under_125000            1.364e-05  4.997e-06   2.729  0.00957 **
## avg_household_size             -5.698e-04  3.124e-04  -1.824  0.07603 . 
## pop_density                    -2.035e-02  2.705e-02  -0.752  0.45640   
## `percent more than 1 occupant`  8.358e-05  2.369e-05   3.528  0.00111 **
## `percent more than 1 unit`     -1.434e-05  5.754e-06  -2.493  0.01716 * 
## avg_median_age                 -8.395e-06  1.697e-05  -0.495  0.62366   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002804 on 38 degrees of freedom
## Multiple R-squared:  0.6938, Adjusted R-squared:  0.6373 
## F-statistic:  12.3 on 7 and 38 DF,  p-value: 4.293e-08
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.450e-04 -2.679e-04 -1.633e-04  9.525e-05  1.722e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   5.142e-04  2.209e-04   2.327   0.0246 *
## total_visit_hours_per_capita -4.181e-05  6.916e-05  -0.604   0.5486  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000469 on 44 degrees of freedom
## Multiple R-squared:  0.008237,   Adjusted R-squared:  -0.0143 
## F-statistic: 0.3654 on 1 and 44 DF,  p-value: 0.5486
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.652e-04 -1.385e-04 -5.818e-05  1.484e-04  8.211e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     1.548e-03  1.517e-03   1.020  0.31397   
## total_visit_hours_per_capita   -1.596e-05  4.558e-05  -0.350  0.72819   
## percent_under_125000            1.364e-05  4.997e-06   2.729  0.00957 **
## avg_household_size             -5.698e-04  3.124e-04  -1.824  0.07603 . 
## pop_density                    -2.035e-02  2.705e-02  -0.752  0.45640   
## `percent more than 1 occupant`  8.358e-05  2.369e-05   3.528  0.00111 **
## `percent more than 1 unit`     -1.434e-05  5.754e-06  -2.493  0.01716 * 
## avg_median_age                 -8.395e-06  1.697e-05  -0.495  0.62366   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002804 on 38 degrees of freedom
## Multiple R-squared:  0.6938, Adjusted R-squared:  0.6373 
## F-statistic:  12.3 on 7 and 38 DF,  p-value: 4.293e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18659 -0.07279 -0.02596  0.01246  0.52697 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   0.22343    0.07107   3.144  0.00298 **
## total_visit_hours_per_capita -0.02228    0.02225  -1.001  0.32218   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1509 on 44 degrees of freedom
## Multiple R-squared:  0.02228,    Adjusted R-squared:  5.579e-05 
## F-statistic: 1.003 on 1 and 44 DF,  p-value: 0.3222
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21085 -0.06337 -0.02027  0.03979  0.53054 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     9.599e-01  8.463e-01   1.134    0.264
## total_visit_hours_per_capita   -3.089e-02  2.544e-02  -1.214    0.232
## percent_under_125000            9.322e-05  2.788e-03   0.033    0.974
## avg_household_size             -4.434e-02  1.743e-01  -0.254    0.801
## pop_density                    -1.771e+01  1.509e+01  -1.173    0.248
## `percent more than 1 occupant` -2.512e-03  1.322e-02  -0.190    0.850
## `percent more than 1 unit`     -7.571e-04  3.211e-03  -0.236    0.815
## avg_median_age                 -1.279e-02  9.470e-03  -1.350    0.185
## 
## Residual standard error: 0.1565 on 38 degrees of freedom
## Multiple R-squared:  0.09159,    Adjusted R-squared:  -0.07574 
## F-statistic: 0.5474 on 7 and 38 DF,  p-value: 0.793
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.094e-04 -2.654e-04 -1.687e-04  7.181e-05  1.724e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            4.324e-04  8.183e-05   5.285 3.75e-06
## total_weighted_visit_hours_per_capita -2.126e-03  2.100e-03  -1.012    0.317
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004655 on 44 degrees of freedom
## Multiple R-squared:  0.02276,    Adjusted R-squared:  0.000552 
## F-statistic: 1.025 on 1 and 44 DF,  p-value: 0.3169
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.717e-04 -1.421e-04 -5.376e-05  1.554e-04  8.162e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            1.456e-03  1.515e-03   0.961 0.342633
## total_weighted_visit_hours_per_capita  8.172e-06  1.515e-03   0.005 0.995725
## percent_under_125000                   1.355e-05  4.999e-06   2.711 0.010022
## avg_household_size                    -5.804e-04  3.115e-04  -1.863 0.070202
## pop_density                           -2.137e-02  2.747e-02  -0.778 0.441312
## `percent more than 1 occupant`         8.554e-05  2.362e-05   3.621 0.000854
## `percent more than 1 unit`            -1.424e-05  5.756e-06  -2.473 0.017975
## avg_median_age                        -6.775e-06  1.710e-05  -0.396 0.694102
##                                          
## (Intercept)                              
## total_weighted_visit_hours_per_capita    
## percent_under_125000                  *  
## avg_household_size                    .  
## pop_density                              
## `percent more than 1 occupant`        ***
## `percent more than 1 unit`            *  
## avg_median_age                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002809 on 38 degrees of freedom
## Multiple R-squared:  0.6928, Adjusted R-squared:  0.6362 
## F-statistic: 12.24 on 7 and 38 DF,  p-value: 4.549e-08
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.094e-04 -2.654e-04 -1.687e-04  7.181e-05  1.724e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            4.324e-04  8.183e-05   5.285 3.75e-06
## total_weighted_visit_hours_per_capita -2.126e-03  2.100e-03  -1.012    0.317
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004655 on 44 degrees of freedom
## Multiple R-squared:  0.02276,    Adjusted R-squared:  0.000552 
## F-statistic: 1.025 on 1 and 44 DF,  p-value: 0.3169
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.717e-04 -1.421e-04 -5.376e-05  1.554e-04  8.162e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            1.456e-03  1.515e-03   0.961 0.342633
## total_weighted_visit_hours_per_capita  8.172e-06  1.515e-03   0.005 0.995725
## percent_under_125000                   1.355e-05  4.999e-06   2.711 0.010022
## avg_household_size                    -5.804e-04  3.115e-04  -1.863 0.070202
## pop_density                           -2.137e-02  2.747e-02  -0.778 0.441312
## `percent more than 1 occupant`         8.554e-05  2.362e-05   3.621 0.000854
## `percent more than 1 unit`            -1.424e-05  5.756e-06  -2.473 0.017975
## avg_median_age                        -6.775e-06  1.710e-05  -0.396 0.694102
##                                          
## (Intercept)                              
## total_weighted_visit_hours_per_capita    
## percent_under_125000                  *  
## avg_household_size                    .  
## pop_density                              
## `percent more than 1 occupant`        ***
## `percent more than 1 unit`            *  
## avg_median_age                           
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002809 on 38 degrees of freedom
## Multiple R-squared:  0.6928, Adjusted R-squared:  0.6362 
## F-statistic: 12.24 on 7 and 38 DF,  p-value: 4.549e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16377 -0.06961 -0.03106  0.00780  0.53821 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.17203    0.02644   6.506 6.08e-08 ***
## total_weighted_visit_hours_per_capita -0.76308    0.67876  -1.124    0.267    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1504 on 44 degrees of freedom
## Multiple R-squared:  0.02792,    Adjusted R-squared:  0.005829 
## F-statistic: 1.264 on 1 and 44 DF,  p-value: 0.267
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21879 -0.06279 -0.02849  0.03035  0.54005 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            9.560e-01  8.418e-01   1.136    0.263
## total_weighted_visit_hours_per_capita -1.099e+00  8.417e-01  -1.306    0.200
## percent_under_125000                  -7.366e-05  2.777e-03  -0.027    0.979
## avg_household_size                    -6.197e-02  1.731e-01  -0.358    0.722
## pop_density                           -1.574e+01  1.526e+01  -1.032    0.309
## `percent more than 1 occupant`        -2.423e-03  1.312e-02  -0.185    0.855
## `percent more than 1 unit`            -5.995e-04  3.198e-03  -0.187    0.852
## avg_median_age                        -1.326e-02  9.497e-03  -1.397    0.171
## 
## Residual standard error: 0.156 on 38 degrees of freedom
## Multiple R-squared:  0.09685,    Adjusted R-squared:  -0.06952 
## F-statistic: 0.5821 on 7 and 38 DF,  p-value: 0.766
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.391e-04 -2.571e-04 -1.937e-04  7.304e-05  1.691e-03 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       0.000715   0.000434   1.647    0.108
## total_weighted_visits_per_capita -0.013380   0.019709  -0.679    0.501
## 
## Residual standard error: 0.0004802 on 39 degrees of freedom
## Multiple R-squared:  0.01168,    Adjusted R-squared:  -0.01366 
## F-statistic: 0.4609 on 1 and 39 DF,  p-value: 0.5012
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.731e-04 -1.568e-04 -5.377e-05  1.604e-04  8.030e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       1.254e-03  1.729e-03   0.725  0.47354   
## total_weighted_visits_per_capita -1.060e-03  1.334e-02  -0.079  0.93713   
## percent_under_125000              1.465e-05  5.381e-06   2.722  0.01029 * 
## avg_household_size               -5.402e-04  3.690e-04  -1.464  0.15270   
## pop_density                      -1.728e-02  2.921e-02  -0.592  0.55819   
## `percent more than 1 occupant`    8.341e-05  2.702e-05   3.087  0.00407 **
## `percent more than 1 unit`       -1.446e-05  6.842e-06  -2.114  0.04215 * 
## avg_median_age                   -5.584e-06  1.795e-05  -0.311  0.75773   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002915 on 33 degrees of freedom
## Multiple R-squared:  0.6918, Adjusted R-squared:  0.6264 
## F-statistic: 10.58 on 7 and 33 DF,  p-value: 6.684e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16370 -0.06220 -0.01861  0.01892  0.50620 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                        0.2749     0.1141   2.410   0.0208 *
## total_weighted_visits_per_capita  -5.3904     5.1793  -1.041   0.3044  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1262 on 39 degrees of freedom
## Multiple R-squared:  0.02702,    Adjusted R-squared:  0.002075 
## F-statistic: 1.083 on 1 and 39 DF,  p-value: 0.3044
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.20858 -0.05005 -0.02862  0.03418  0.48952 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       1.0267679  0.7824338   1.312    0.198
## total_weighted_visits_per_capita -6.2305338  6.0347380  -1.032    0.309
## percent_under_125000              0.0001107  0.0024352   0.045    0.964
## avg_household_size               -0.0596002  0.1669852  -0.357    0.723
## pop_density                      -9.6903904 13.2177130  -0.733    0.469
## `percent more than 1 occupant`   -0.0016723  0.0122257  -0.137    0.892
## `percent more than 1 unit`       -0.0017941  0.0030960  -0.579    0.566
## avg_median_age                   -0.0120169  0.0081233  -1.479    0.149
## 
## Residual standard error: 0.1319 on 33 degrees of freedom
## Multiple R-squared:  0.1002, Adjusted R-squared:  -0.09063 
## F-statistic: 0.5252 on 7 and 33 DF,  p-value: 0.809
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.233e-04 -2.972e-04 -1.739e-04  9.494e-05  1.693e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   4.457e-04  5.162e-04   0.863    0.393
## total_visit_hours_per_capita -7.125e-06  1.739e-04  -0.041    0.968
## 
## Residual standard error: 0.000483 on 39 degrees of freedom
## Multiple R-squared:  4.306e-05,  Adjusted R-squared:  -0.0256 
## F-statistic: 0.001679 on 1 and 39 DF,  p-value: 0.9675
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0005272 -0.0001467 -0.0000508  0.0001063  0.0008035 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     1.524e-03  1.702e-03   0.895  0.37714   
## total_visit_hours_per_capita   -9.082e-05  1.388e-04  -0.654  0.51756   
## percent_under_125000            1.493e-05  5.366e-06   2.783  0.00883 **
## avg_household_size             -5.325e-04  3.604e-04  -1.478  0.14897   
## pop_density                    -1.761e-02  2.897e-02  -0.608  0.54742   
## `percent more than 1 occupant`  8.300e-05  2.672e-05   3.106  0.00388 **
## `percent more than 1 unit`     -1.560e-05  6.796e-06  -2.296  0.02819 * 
## avg_median_age                 -6.058e-06  1.785e-05  -0.339  0.73650   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002897 on 33 degrees of freedom
## Multiple R-squared:  0.6957, Adjusted R-squared:  0.6311 
## F-statistic: 10.78 on 7 and 33 DF,  p-value: 5.492e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15579 -0.06376 -0.02480  0.01240  0.49736 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.18756    0.13664   1.373    0.178
## total_visit_hours_per_capita -0.01008    0.04602  -0.219    0.828
## 
## Residual standard error: 0.1279 on 39 degrees of freedom
## Multiple R-squared:  0.001229,   Adjusted R-squared:  -0.02438 
## F-statistic: 0.04798 on 1 and 39 DF,  p-value: 0.8278
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.19304 -0.05492 -0.01871  0.03162  0.48711 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)
## (Intercept)                     8.861e-01  7.846e-01   1.129    0.267
## total_visit_hours_per_capita   -3.187e-02  6.400e-02  -0.498    0.622
## percent_under_125000            1.699e-04  2.473e-03   0.069    0.946
## avg_household_size             -2.699e-02  1.661e-01  -0.162    0.872
## pop_density                    -1.058e+01  1.336e+01  -0.792    0.434
## `percent more than 1 occupant` -2.969e-03  1.232e-02  -0.241    0.811
## `percent more than 1 unit`     -1.314e-03  3.133e-03  -0.419    0.678
## avg_median_age                 -1.215e-02  8.230e-03  -1.476    0.149
## 
## Residual standard error: 0.1335 on 33 degrees of freedom
## Multiple R-squared:  0.0781, Adjusted R-squared:  -0.1175 
## F-statistic: 0.3994 on 7 and 33 DF,  p-value: 0.8958
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.738e-04 -2.621e-04 -1.631e-04  7.633e-05  1.709e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.0005735  0.0001956   2.932  0.00561 **
## total_weighted_visit_hours_per_capita -0.0092039  0.0111869  -0.823  0.41566   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004789 on 39 degrees of freedom
## Multiple R-squared:  0.01706,    Adjusted R-squared:  -0.008143 
## F-statistic: 0.6769 on 1 and 39 DF,  p-value: 0.4157
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.727e-04 -1.580e-04 -4.984e-05  1.677e-04  7.934e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            1.116e-03  1.721e-03   0.648  0.52130   
## total_weighted_visit_hours_per_capita  1.546e-03  8.309e-03   0.186  0.85351   
## percent_under_125000                   1.459e-05  5.385e-06   2.709  0.01062 * 
## avg_household_size                    -5.263e-04  3.654e-04  -1.440  0.15919   
## pop_density                           -1.825e-02  2.949e-02  -0.619  0.54013   
## `percent more than 1 occupant`         8.386e-05  2.711e-05   3.094  0.00401 **
## `percent more than 1 unit`            -1.420e-05  6.565e-06  -2.163  0.03789 * 
## avg_median_age                        -4.472e-06  1.890e-05  -0.237  0.81442   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002914 on 33 degrees of freedom
## Multiple R-squared:  0.692,  Adjusted R-squared:  0.6267 
## F-statistic: 10.59 on 7 and 33 DF,  p-value: 6.596e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.17414 -0.05953 -0.02259  0.01404  0.48392 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.20701    0.05155   4.016 0.000261 ***
## total_weighted_visit_hours_per_capita -3.03739    2.94870  -1.030 0.309320    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1262 on 39 degrees of freedom
## Multiple R-squared:  0.02649,    Adjusted R-squared:  0.001524 
## F-statistic: 1.061 on 1 and 39 DF,  p-value: 0.3093
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.18024 -0.05589 -0.02229  0.03753  0.47215 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            1.1216963  0.7654464   1.465    0.152  
## total_weighted_visit_hours_per_capita -5.6036423  3.6955103  -1.516    0.139  
## percent_under_125000                   0.0002502  0.0023950   0.104    0.917  
## avg_household_size                    -0.0585551  0.1624952  -0.360    0.721  
## pop_density                           -7.4866555 13.1140063  -0.571    0.572  
## `percent more than 1 occupant`        -0.0052639  0.0120549  -0.437    0.665  
## `percent more than 1 unit`            -0.0012442  0.0029195  -0.426    0.673  
## avg_median_age                        -0.0159801  0.0084054  -1.901    0.066 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1296 on 33 degrees of freedom
## Multiple R-squared:  0.1317, Adjusted R-squared:  -0.05252 
## F-statistic: 0.7149 on 7 and 33 DF,  p-value: 0.6599
## 
## [1] "Cases start date: 2020-06-22"
## [1] "Visits start date: 2020-06-08"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.530e-04 -2.338e-04 -1.186e-04  7.057e-05  1.299e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.0006086  0.0003119   1.951   0.0574 .
## total_weighted_visits_per_capita -0.0081742  0.0130514  -0.626   0.5343  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003966 on 44 degrees of freedom
## Multiple R-squared:  0.008836,   Adjusted R-squared:  -0.01369 
## F-statistic: 0.3923 on 1 and 44 DF,  p-value: 0.5343
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.277e-04 -1.422e-04 -3.146e-05  1.069e-04  6.527e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       2.879e-03  1.476e-03   1.951  0.05845 . 
## total_weighted_visits_per_capita -1.401e-02  1.156e-02  -1.212  0.23302   
## percent_under_125000              7.178e-06  4.809e-06   1.492  0.14383   
## avg_household_size               -5.144e-04  3.019e-04  -1.704  0.09658 . 
## pop_density                      -6.576e-02  2.747e-02  -2.393  0.02173 * 
## `percent more than 1 occupant`    6.653e-05  2.280e-05   2.918  0.00588 **
## `percent more than 1 unit`       -9.632e-06  6.027e-06  -1.598  0.11827   
## avg_median_age                   -2.679e-05  1.584e-05  -1.692  0.09887 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002699 on 38 degrees of freedom
## Multiple R-squared:  0.6036, Adjusted R-squared:  0.5306 
## F-statistic: 8.267 on 7 and 38 DF,  p-value: 4.19e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.530e-04 -2.338e-04 -1.186e-04  7.057e-05  1.299e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.0006086  0.0003119   1.951   0.0574 .
## total_weighted_visits_per_capita -0.0081742  0.0130514  -0.626   0.5343  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003966 on 44 degrees of freedom
## Multiple R-squared:  0.008836,   Adjusted R-squared:  -0.01369 
## F-statistic: 0.3923 on 1 and 44 DF,  p-value: 0.5343
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.277e-04 -1.422e-04 -3.146e-05  1.069e-04  6.527e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       2.879e-03  1.476e-03   1.951  0.05845 . 
## total_weighted_visits_per_capita -1.401e-02  1.156e-02  -1.212  0.23302   
## percent_under_125000              7.178e-06  4.809e-06   1.492  0.14383   
## avg_household_size               -5.144e-04  3.019e-04  -1.704  0.09658 . 
## pop_density                      -6.576e-02  2.747e-02  -2.393  0.02173 * 
## `percent more than 1 occupant`    6.653e-05  2.280e-05   2.918  0.00588 **
## `percent more than 1 unit`       -9.632e-06  6.027e-06  -1.598  0.11827   
## avg_median_age                   -2.679e-05  1.584e-05  -1.692  0.09887 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002699 on 38 degrees of freedom
## Multiple R-squared:  0.6036, Adjusted R-squared:  0.5306 
## F-statistic: 8.267 on 7 and 38 DF,  p-value: 4.19e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.22615 -0.08072 -0.02997  0.04538  0.56552 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                        0.4561     0.1101   4.143 0.000153 ***
## total_weighted_visits_per_capita -12.0806     4.6073  -2.622 0.011960 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.14 on 44 degrees of freedom
## Multiple R-squared:  0.1351, Adjusted R-squared:  0.1155 
## F-statistic: 6.875 on 1 and 44 DF,  p-value: 0.01196
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23953 -0.08128 -0.00170  0.04726  0.49624 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.451e+00  7.546e-01   1.923   0.0619 .
## total_weighted_visits_per_capita -1.023e+01  5.913e+00  -1.731   0.0916 .
## percent_under_125000             -4.878e-03  2.460e-03  -1.983   0.0546 .
## avg_household_size               -7.884e-02  1.544e-01  -0.511   0.6125  
## pop_density                      -1.306e+01  1.405e+01  -0.930   0.3584  
## `percent more than 1 occupant`    5.148e-03  1.166e-02   0.442   0.6613  
## `percent more than 1 unit`       -2.066e-04  3.082e-03  -0.067   0.9469  
## avg_median_age                   -1.295e-02  8.100e-03  -1.599   0.1180  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.138 on 38 degrees of freedom
## Multiple R-squared:  0.2741, Adjusted R-squared:  0.1404 
## F-statistic:  2.05 on 7 and 38 DF,  p-value: 0.07364
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.243e-04 -2.542e-04 -9.619e-05  6.767e-05  1.303e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   4.314e-04  3.215e-04   1.342    0.187
## total_visit_hours_per_capita -4.602e-06  9.956e-05  -0.046    0.963
## 
## Residual standard error: 0.0003984 on 44 degrees of freedom
## Multiple R-squared:  4.857e-05,  Adjusted R-squared:  -0.02268 
## F-statistic: 0.002137 on 1 and 44 DF,  p-value: 0.9633
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.534e-04 -1.235e-04  1.084e-05  9.332e-05  6.013e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     3.170e-03  1.412e-03   2.244  0.03071 * 
## total_visit_hours_per_capita   -1.778e-04  7.958e-05  -2.234  0.03146 * 
## percent_under_125000            7.609e-06  4.614e-06   1.649  0.10736   
## avg_household_size             -4.901e-04  2.870e-04  -1.708  0.09588 . 
## pop_density                    -6.965e-02  2.502e-02  -2.784  0.00832 **
## `percent more than 1 occupant`  6.779e-05  2.153e-05   3.149  0.00319 **
## `percent more than 1 unit`     -1.035e-05  5.541e-06  -1.867  0.06962 . 
## avg_median_age                 -2.993e-05  1.508e-05  -1.984  0.05449 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002586 on 38 degrees of freedom
## Multiple R-squared:  0.6361, Adjusted R-squared:  0.5691 
## F-statistic: 9.489 on 7 and 38 DF,  p-value: 9.318e-07
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.243e-04 -2.542e-04 -9.619e-05  6.767e-05  1.303e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   4.314e-04  3.215e-04   1.342    0.187
## total_visit_hours_per_capita -4.602e-06  9.956e-05  -0.046    0.963
## 
## Residual standard error: 0.0003984 on 44 degrees of freedom
## Multiple R-squared:  4.857e-05,  Adjusted R-squared:  -0.02268 
## F-statistic: 0.002137 on 1 and 44 DF,  p-value: 0.9633
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.534e-04 -1.235e-04  1.084e-05  9.332e-05  6.013e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     3.170e-03  1.412e-03   2.244  0.03071 * 
## total_visit_hours_per_capita   -1.778e-04  7.958e-05  -2.234  0.03146 * 
## percent_under_125000            7.609e-06  4.614e-06   1.649  0.10736   
## avg_household_size             -4.901e-04  2.870e-04  -1.708  0.09588 . 
## pop_density                    -6.965e-02  2.502e-02  -2.784  0.00832 **
## `percent more than 1 occupant`  6.779e-05  2.153e-05   3.149  0.00319 **
## `percent more than 1 unit`     -1.035e-05  5.541e-06  -1.867  0.06962 . 
## avg_median_age                 -2.993e-05  1.508e-05  -1.984  0.05449 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002586 on 38 degrees of freedom
## Multiple R-squared:  0.6361, Adjusted R-squared:  0.5691 
## F-statistic: 9.489 on 7 and 38 DF,  p-value: 9.318e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.25324 -0.08319 -0.02446  0.03677  0.55062 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   0.32888    0.11912   2.761  0.00837 **
## total_visit_hours_per_capita -0.04923    0.03689  -1.335  0.18881   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1476 on 44 degrees of freedom
## Multiple R-squared:  0.03892,    Adjusted R-squared:  0.01707 
## F-statistic: 1.782 on 1 and 44 DF,  p-value: 0.1888
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.26662 -0.08036 -0.00352  0.05144  0.50718 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      1.250219   0.780205   1.602   0.1173  
## total_visit_hours_per_capita    -0.023052   0.043957  -0.524   0.6030  
## percent_under_125000            -0.004994   0.002549  -1.960   0.0574 .
## avg_household_size              -0.047182   0.158532  -0.298   0.7676  
## pop_density                    -20.262118  13.819277  -1.466   0.1508  
## `percent more than 1 occupant`   0.001494   0.011892   0.126   0.9007  
## `percent more than 1 unit`       0.001443   0.003061   0.472   0.6399  
## avg_median_age                  -0.014671   0.008332  -1.761   0.0863 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1429 on 38 degrees of freedom
## Multiple R-squared:  0.2225, Adjusted R-squared:  0.07929 
## F-statistic: 1.554 on 7 and 38 DF,  p-value: 0.1792
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.689e-04 -2.421e-04 -1.012e-04  5.937e-05  1.320e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            0.0005243  0.0001418   3.696 0.000603
## total_weighted_visit_hours_per_capita -0.0053780  0.0064649  -0.832 0.409966
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003953 on 44 degrees of freedom
## Multiple R-squared:  0.01548,    Adjusted R-squared:  -0.006891 
## F-statistic: 0.692 on 1 and 44 DF,  p-value: 0.41
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.458e-04 -1.492e-04 -3.710e-06  9.303e-05  6.893e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            2.951e-03  1.621e-03   1.821  0.07649 . 
## total_weighted_visit_hours_per_capita -3.907e-03  5.887e-03  -0.664  0.51093   
## percent_under_125000                   6.898e-06  4.867e-06   1.417  0.16458   
## avg_household_size                    -5.767e-04  3.455e-04  -1.669  0.10330   
## pop_density                           -6.794e-02  2.951e-02  -2.302  0.02689 * 
## `percent more than 1 occupant`         6.659e-05  2.447e-05   2.721  0.00976 **
## `percent more than 1 unit`            -9.015e-06  6.576e-06  -1.371  0.17849   
## avg_median_age                        -3.061e-05  1.613e-05  -1.897  0.06539 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002735 on 38 degrees of freedom
## Multiple R-squared:  0.593,  Adjusted R-squared:  0.518 
## F-statistic:  7.91 on 7 and 38 DF,  p-value: 6.644e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.689e-04 -2.421e-04 -1.012e-04  5.937e-05  1.320e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            0.0005243  0.0001418   3.696 0.000603
## total_weighted_visit_hours_per_capita -0.0053780  0.0064649  -0.832 0.409966
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003953 on 44 degrees of freedom
## Multiple R-squared:  0.01548,    Adjusted R-squared:  -0.006891 
## F-statistic: 0.692 on 1 and 44 DF,  p-value: 0.41
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.458e-04 -1.492e-04 -3.710e-06  9.303e-05  6.893e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            2.951e-03  1.621e-03   1.821  0.07649 . 
## total_weighted_visit_hours_per_capita -3.907e-03  5.887e-03  -0.664  0.51093   
## percent_under_125000                   6.898e-06  4.867e-06   1.417  0.16458   
## avg_household_size                    -5.767e-04  3.455e-04  -1.669  0.10330   
## pop_density                           -6.794e-02  2.951e-02  -2.302  0.02689 * 
## `percent more than 1 occupant`         6.659e-05  2.447e-05   2.721  0.00976 **
## `percent more than 1 unit`            -9.015e-06  6.576e-06  -1.371  0.17849   
## avg_median_age                        -3.061e-05  1.613e-05  -1.897  0.06539 . 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002735 on 38 degrees of freedom
## Multiple R-squared:  0.593,  Adjusted R-squared:  0.518 
## F-statistic:  7.91 on 7 and 38 DF,  p-value: 6.644e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.20375 -0.08643 -0.03970  0.05204  0.61104 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.23693    0.05297   4.473 5.37e-05 ***
## total_weighted_visit_hours_per_capita -3.21807    2.41399  -1.333    0.189    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1476 on 44 degrees of freedom
## Multiple R-squared:  0.03882,    Adjusted R-squared:  0.01698 
## F-statistic: 1.777 on 1 and 44 DF,  p-value: 0.1894
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.27461 -0.07501  0.00005  0.03961  0.52507 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            1.443e+00  8.431e-01   1.712   0.0951 .
## total_weighted_visit_hours_per_capita -2.345e+00  3.062e+00  -0.766   0.4485  
## percent_under_125000                  -5.084e-03  2.532e-03  -2.008   0.0518 .
## avg_household_size                    -1.101e-01  1.797e-01  -0.612   0.5439  
## pop_density                           -1.582e+01  1.535e+01  -1.031   0.3093  
## `percent more than 1 occupant`         4.357e-03  1.273e-02   0.342   0.7340  
## `percent more than 1 unit`             5.412e-04  3.421e-03   0.158   0.8751  
## avg_median_age                        -1.553e-02  8.393e-03  -1.850   0.0720 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1423 on 38 degrees of freedom
## Multiple R-squared:  0.2288, Adjusted R-squared:  0.08672 
## F-statistic:  1.61 on 7 and 38 DF,  p-value: 0.1622
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.131e-04 -2.313e-04 -1.114e-04  6.322e-05  1.274e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)
## (Intercept)                       0.0004945  0.0003528   1.402    0.169
## total_weighted_visits_per_capita -0.0020898  0.0149387  -0.140    0.889
## 
## Residual standard error: 0.0004007 on 40 degrees of freedom
## Multiple R-squared:  0.000489,   Adjusted R-squared:  -0.0245 
## F-statistic: 0.01957 on 1 and 40 DF,  p-value: 0.8894
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.017e-04 -1.448e-04 -2.061e-05  8.852e-05  6.633e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       2.634e-03  1.552e-03   1.697   0.0988 .
## total_weighted_visits_per_capita -1.446e-02  1.255e-02  -1.152   0.2574  
## percent_under_125000              8.715e-06  5.023e-06   1.735   0.0918 .
## avg_household_size               -3.973e-04  3.330e-04  -1.193   0.2411  
## pop_density                      -6.769e-02  2.854e-02  -2.372   0.0235 *
## `percent more than 1 occupant`    5.577e-05  2.503e-05   2.228   0.0326 *
## `percent more than 1 unit`       -7.956e-06  6.376e-06  -1.248   0.2206  
## avg_median_age                   -3.107e-05  1.689e-05  -1.840   0.0745 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000274 on 34 degrees of freedom
## Multiple R-squared:  0.6028, Adjusted R-squared:  0.521 
## F-statistic: 7.371 on 7 and 34 DF,  p-value: 2.157e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.17839 -0.06808 -0.02623  0.03608  0.37782 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       0.37271    0.09583   3.889 0.000371 ***
## total_weighted_visits_per_capita -8.70896    4.05780  -2.146 0.037975 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1088 on 40 degrees of freedom
## Multiple R-squared:  0.1033, Adjusted R-squared:  0.08085 
## F-statistic: 4.606 on 1 and 40 DF,  p-value: 0.03797
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16272 -0.06314 -0.00081  0.04621  0.34609 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.179e+00  5.970e-01   1.976   0.0563 .
## total_weighted_visits_per_capita -5.735e+00  4.828e+00  -1.188   0.2431  
## percent_under_125000             -3.308e-03  1.932e-03  -1.712   0.0960 .
## avg_household_size               -3.188e-02  1.281e-01  -0.249   0.8049  
## pop_density                      -1.207e+01  1.098e+01  -1.099   0.2793  
## `percent more than 1 occupant`   -1.635e-03  9.628e-03  -0.170   0.8662  
## `percent more than 1 unit`        5.984e-04  2.453e-03   0.244   0.8087  
## avg_median_age                   -1.436e-02  6.496e-03  -2.210   0.0339 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1054 on 34 degrees of freedom
## Multiple R-squared:  0.2853, Adjusted R-squared:  0.1382 
## F-statistic: 1.939 on 7 and 34 DF,  p-value: 0.09358
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.392e-04 -2.368e-04 -1.091e-04  6.623e-05  1.258e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   6.470e-04  3.899e-04   1.660    0.105
## total_visit_hours_per_capita -6.208e-05  1.188e-04  -0.522    0.604
## 
## Residual standard error: 0.0003995 on 40 degrees of freedom
## Multiple R-squared:  0.006778,   Adjusted R-squared:  -0.01805 
## F-statistic: 0.273 on 1 and 40 DF,  p-value: 0.6042
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.434e-04 -1.514e-04 -3.580e-06  1.137e-04  5.991e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     3.596e-03  1.529e-03   2.351   0.0246 *
## total_visit_hours_per_capita   -2.306e-04  9.464e-05  -2.437   0.0202 *
## percent_under_125000            8.193e-06  4.716e-06   1.737   0.0914 .
## avg_household_size             -4.470e-04  3.139e-04  -1.424   0.1636  
## pop_density                    -6.257e-02  2.642e-02  -2.368   0.0237 *
## `percent more than 1 occupant`  5.968e-05  2.357e-05   2.532   0.0161 *
## `percent more than 1 unit`     -1.085e-05  6.098e-06  -1.780   0.0841 .
## avg_median_age                 -3.900e-05  1.613e-05  -2.418   0.0211 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002577 on 34 degrees of freedom
## Multiple R-squared:  0.6487, Adjusted R-squared:  0.5763 
## F-statistic: 8.968 on 7 and 34 DF,  p-value: 3.165e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15390 -0.07335 -0.02768  0.03809  0.43024 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   0.22955    0.11179   2.053   0.0466 *
## total_visit_hours_per_capita -0.01831    0.03407  -0.537   0.5939  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1145 on 40 degrees of freedom
## Multiple R-squared:  0.00717,    Adjusted R-squared:  -0.01765 
## F-statistic: 0.2889 on 1 and 40 DF,  p-value: 0.5939
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15024 -0.05470 -0.00582  0.03900  0.37976 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                      1.006526   0.638033   1.578   0.1239  
## total_visit_hours_per_capita     0.007372   0.039483   0.187   0.8530  
## percent_under_125000            -0.003439   0.001968  -1.748   0.0895 .
## avg_household_size              -0.027898   0.130980  -0.213   0.8326  
## pop_density                    -16.225936  11.021418  -1.472   0.1502  
## `percent more than 1 occupant`  -0.003192   0.009834  -0.325   0.7475  
## `percent more than 1 unit`       0.001608   0.002544   0.632   0.5317  
## avg_median_age                  -0.014466   0.006729  -2.150   0.0388 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1075 on 34 degrees of freedom
## Multiple R-squared:  0.2564, Adjusted R-squared:  0.1033 
## F-statistic: 1.675 on 7 and 34 DF,  p-value: 0.1485
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.115e-04 -2.230e-04 -1.139e-04  5.235e-05  1.280e-03 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            0.0004744  0.0001698   2.794  0.00795 **
## total_weighted_visit_hours_per_capita -0.0014908  0.0082570  -0.181  0.85763   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004007 on 40 degrees of freedom
## Multiple R-squared:  0.0008143,  Adjusted R-squared:  -0.02417 
## F-statistic: 0.0326 on 1 and 40 DF,  p-value: 0.8576
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.215e-04 -1.499e-04 -1.989e-05  9.942e-05  7.108e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            3.313e-03  1.709e-03   1.938   0.0609 .
## total_weighted_visit_hours_per_capita -1.109e-02  8.619e-03  -1.287   0.2069  
## percent_under_125000                   8.953e-06  5.011e-06   1.787   0.0829 .
## avg_household_size                    -5.409e-04  3.511e-04  -1.541   0.1327  
## pop_density                           -5.291e-02  3.306e-02  -1.600   0.1188  
## `percent more than 1 occupant`         5.699e-05  2.500e-05   2.280   0.0290 *
## `percent more than 1 unit`            -9.523e-06  6.720e-06  -1.417   0.1655  
## avg_median_age                        -4.132e-05  1.831e-05  -2.256   0.0306 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002727 on 34 degrees of freedom
## Multiple R-squared:  0.6065, Adjusted R-squared:  0.5254 
## F-statistic: 7.485 on 7 and 34 DF,  p-value: 1.868e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13271 -0.07693 -0.03674  0.05742  0.41445 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.20895    0.04827   4.329 9.75e-05 ***
## total_weighted_visit_hours_per_capita -2.02218    2.34718  -0.862    0.394    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1139 on 40 degrees of freedom
## Multiple R-squared:  0.01822,    Adjusted R-squared:  -0.006326 
## F-statistic: 0.7422 on 1 and 40 DF,  p-value: 0.3941
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14952 -0.05771  0.00849  0.03790  0.37159 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            1.4092176  0.6604291   2.134   0.0402 *
## total_weighted_visit_hours_per_capita -3.9644408  3.3305588  -1.190   0.2422  
## percent_under_125000                  -0.0032360  0.0019366  -1.671   0.1039  
## avg_household_size                    -0.0830219  0.1356808  -0.612   0.5447  
## pop_density                           -7.1514031 12.7759803  -0.560   0.5793  
## `percent more than 1 occupant`        -0.0013301  0.0096603  -0.138   0.8913  
## `percent more than 1 unit`             0.0001223  0.0025968   0.047   0.9627  
## avg_median_age                        -0.0180555  0.0070773  -2.551   0.0154 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1054 on 34 degrees of freedom
## Multiple R-squared:  0.2854, Adjusted R-squared:  0.1383 
## F-statistic:  1.94 on 7 and 34 DF,  p-value: 0.09339
## 
## [1] "Cases start date: 2020-06-29"
## [1] "Visits start date: 2020-06-15"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006109 -0.0003438 -0.0001203  0.0002092  0.0014208 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       0.0007591  0.0001726   4.399 6.82e-05 ***
## total_weighted_visits_per_capita -0.0059483  0.0060643  -0.981    0.332    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004952 on 44 degrees of freedom
## Multiple R-squared:  0.0214, Adjusted R-squared:  -0.0008424 
## F-statistic: 0.9621 on 1 and 44 DF,  p-value: 0.332
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.692e-04 -2.225e-04  1.178e-05  1.924e-04  9.795e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       3.564e-03  1.983e-03   1.797   0.0803 .
## total_weighted_visits_per_capita -4.314e-03  4.850e-03  -0.890   0.3793  
## percent_under_125000              1.250e-05  6.309e-06   1.981   0.0548 .
## avg_household_size               -6.981e-04  4.110e-04  -1.698   0.0976 .
## pop_density                      -2.609e-02  3.432e-02  -0.760   0.4518  
## `percent more than 1 occupant`    7.103e-05  3.000e-05   2.368   0.0231 *
## `percent more than 1 unit`       -1.560e-05  7.844e-06  -1.988   0.0540 .
## avg_median_age                   -3.807e-05  2.075e-05  -1.835   0.0744 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003543 on 38 degrees of freedom
## Multiple R-squared:  0.5673, Adjusted R-squared:  0.4876 
## F-statistic: 7.117 on 7 and 38 DF,  p-value: 1.924e-05
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006109 -0.0003438 -0.0001203  0.0002092  0.0014208 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       0.0007591  0.0001726   4.399 6.82e-05 ***
## total_weighted_visits_per_capita -0.0059483  0.0060643  -0.981    0.332    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004952 on 44 degrees of freedom
## Multiple R-squared:  0.0214, Adjusted R-squared:  -0.0008424 
## F-statistic: 0.9621 on 1 and 44 DF,  p-value: 0.332
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.692e-04 -2.225e-04  1.178e-05  1.924e-04  9.795e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       3.564e-03  1.983e-03   1.797   0.0803 .
## total_weighted_visits_per_capita -4.314e-03  4.850e-03  -0.890   0.3793  
## percent_under_125000              1.250e-05  6.309e-06   1.981   0.0548 .
## avg_household_size               -6.981e-04  4.110e-04  -1.698   0.0976 .
## pop_density                      -2.609e-02  3.432e-02  -0.760   0.4518  
## `percent more than 1 occupant`    7.103e-05  3.000e-05   2.368   0.0231 *
## `percent more than 1 unit`       -1.560e-05  7.844e-06  -1.988   0.0540 .
## avg_median_age                   -3.807e-05  2.075e-05  -1.835   0.0744 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003543 on 38 degrees of freedom
## Multiple R-squared:  0.5673, Adjusted R-squared:  0.4876 
## F-statistic: 7.117 on 7 and 38 DF,  p-value: 1.924e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.21316 -0.09503 -0.04389  0.03202  0.65516 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       0.29184    0.06259   4.663 2.91e-05 ***
## total_weighted_visits_per_capita -3.15835    2.19948  -1.436    0.158    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1796 on 44 degrees of freedom
## Multiple R-squared:  0.04476,    Adjusted R-squared:  0.02306 
## F-statistic: 2.062 on 1 and 44 DF,  p-value: 0.1581
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.41097 -0.08853 -0.01096  0.06095  0.50802 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.812573   0.951185   1.906   0.0643 .
## total_weighted_visits_per_capita -2.938159   2.325684  -1.263   0.2142  
## percent_under_125000             -0.005355   0.003026  -1.770   0.0848 .
## avg_household_size               -0.125828   0.197114  -0.638   0.5271  
## pop_density                      13.195527  16.458939   0.802   0.4277  
## `percent more than 1 occupant`    0.002898   0.014385   0.201   0.8414  
## `percent more than 1 unit`       -0.001511   0.003762  -0.402   0.6902  
## avg_median_age                   -0.021480   0.009953  -2.158   0.0373 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1699 on 38 degrees of freedom
## Multiple R-squared:  0.2616, Adjusted R-squared:  0.1255 
## F-statistic: 1.923 on 7 and 38 DF,  p-value: 0.09271
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.494e-04 -3.560e-04 -9.534e-05  1.973e-04  1.425e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   7.294e-04  3.574e-04   2.041   0.0473 *
## total_visit_hours_per_capita -3.826e-05  1.081e-04  -0.354   0.7252  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004999 on 44 degrees of freedom
## Multiple R-squared:  0.002837,   Adjusted R-squared:  -0.01983 
## F-statistic: 0.1252 on 1 and 44 DF,  p-value: 0.7252
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.540e-04 -1.810e-04 -7.560e-06  1.791e-04  8.934e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     3.730e-03  1.849e-03   2.018   0.0507 .
## total_visit_hours_per_capita   -1.686e-04  8.418e-05  -2.003   0.0524 .
## percent_under_125000            1.307e-05  6.063e-06   2.155   0.0375 *
## avg_household_size             -4.871e-04  3.811e-04  -1.278   0.2090  
## pop_density                    -2.272e-02  3.288e-02  -0.691   0.4938  
## `percent more than 1 occupant`  5.618e-05  2.830e-05   1.985   0.0544 .
## `percent more than 1 unit`     -1.442e-05  7.015e-06  -2.056   0.0467 *
## avg_median_age                 -4.617e-05  2.045e-05  -2.257   0.0298 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003405 on 38 degrees of freedom
## Multiple R-squared:  0.6005, Adjusted R-squared:  0.5269 
## F-statistic: 8.159 on 7 and 38 DF,  p-value: 4.815e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.494e-04 -3.560e-04 -9.534e-05  1.973e-04  1.425e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   7.294e-04  3.574e-04   2.041   0.0473 *
## total_visit_hours_per_capita -3.826e-05  1.081e-04  -0.354   0.7252  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004999 on 44 degrees of freedom
## Multiple R-squared:  0.002837,   Adjusted R-squared:  -0.01983 
## F-statistic: 0.1252 on 1 and 44 DF,  p-value: 0.7252
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -7.540e-04 -1.810e-04 -7.560e-06  1.791e-04  8.934e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     3.730e-03  1.849e-03   2.018   0.0507 .
## total_visit_hours_per_capita   -1.686e-04  8.418e-05  -2.003   0.0524 .
## percent_under_125000            1.307e-05  6.063e-06   2.155   0.0375 *
## avg_household_size             -4.871e-04  3.811e-04  -1.278   0.2090  
## pop_density                    -2.272e-02  3.288e-02  -0.691   0.4938  
## `percent more than 1 occupant`  5.618e-05  2.830e-05   1.985   0.0544 .
## `percent more than 1 unit`     -1.442e-05  7.015e-06  -2.056   0.0467 *
## avg_median_age                 -4.617e-05  2.045e-05  -2.257   0.0298 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003405 on 38 degrees of freedom
## Multiple R-squared:  0.6005, Adjusted R-squared:  0.5269 
## F-statistic: 8.159 on 7 and 38 DF,  p-value: 4.815e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.27951 -0.08262 -0.03628  0.04070  0.61950 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   0.40601    0.12789   3.175  0.00274 **
## total_visit_hours_per_capita -0.06047    0.03869  -1.563  0.12521   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1789 on 44 degrees of freedom
## Multiple R-squared:  0.0526, Adjusted R-squared:  0.03107 
## F-statistic: 2.443 on 1 and 44 DF,  p-value: 0.1252
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.26343 -0.08823 -0.02890  0.08953  0.46051 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.8402407  0.8796957   2.092   0.0432 *
## total_visit_hours_per_capita   -0.0943730  0.0400589  -2.356   0.0237 *
## percent_under_125000           -0.0050166  0.0028852  -1.739   0.0902 .
## avg_household_size              0.0053035  0.1813793   0.029   0.9768  
## pop_density                    14.5702901 15.6465789   0.931   0.3576  
## `percent more than 1 occupant` -0.0061921  0.0134687  -0.460   0.6483  
## `percent more than 1 unit`     -0.0005336  0.0033385  -0.160   0.8739  
## avg_median_age                 -0.0257950  0.0097331  -2.650   0.0117 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.162 on 38 degrees of freedom
## Multiple R-squared:  0.3286, Adjusted R-squared:  0.2049 
## F-statistic: 2.657 on 7 and 38 DF,  p-value: 0.02436
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006486 -0.0003336 -0.0001212  0.0001929  0.0014171 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            0.0007298  0.0001178   6.195 1.74e-07
## total_weighted_visit_hours_per_capita -0.0055585  0.0041640  -1.335    0.189
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004907 on 44 degrees of freedom
## Multiple R-squared:  0.03892,    Adjusted R-squared:  0.01708 
## F-statistic: 1.782 on 1 and 44 DF,  p-value: 0.1888
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.624e-04 -2.260e-04  1.025e-05  1.793e-04  9.248e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            3.929e-03  1.947e-03   2.018   0.0507 .
## total_weighted_visit_hours_per_capita -5.181e-03  3.420e-03  -1.515   0.1381  
## percent_under_125000                   1.239e-05  6.190e-06   2.001   0.0525 .
## avg_household_size                    -7.328e-04  3.968e-04  -1.847   0.0726 .
## pop_density                           -1.454e-02  3.494e-02  -0.416   0.6795  
## `percent more than 1 occupant`         6.679e-05  2.861e-05   2.335   0.0250 *
## `percent more than 1 unit`            -1.619e-05  7.437e-06  -2.177   0.0358 *
## avg_median_age                        -4.412e-05  2.092e-05  -2.109   0.0416 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003477 on 38 degrees of freedom
## Multiple R-squared:  0.5834, Adjusted R-squared:  0.5067 
## F-statistic: 7.603 on 7 and 38 DF,  p-value: 9.959e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006486 -0.0003336 -0.0001212  0.0001929  0.0014171 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)
## (Intercept)                            0.0007298  0.0001178   6.195 1.74e-07
## total_weighted_visit_hours_per_capita -0.0055585  0.0041640  -1.335    0.189
##                                          
## (Intercept)                           ***
## total_weighted_visit_hours_per_capita    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004907 on 44 degrees of freedom
## Multiple R-squared:  0.03892,    Adjusted R-squared:  0.01708 
## F-statistic: 1.782 on 1 and 44 DF,  p-value: 0.1888
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.624e-04 -2.260e-04  1.025e-05  1.793e-04  9.248e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            3.929e-03  1.947e-03   2.018   0.0507 .
## total_weighted_visit_hours_per_capita -5.181e-03  3.420e-03  -1.515   0.1381  
## percent_under_125000                   1.239e-05  6.190e-06   2.001   0.0525 .
## avg_household_size                    -7.328e-04  3.968e-04  -1.847   0.0726 .
## pop_density                           -1.454e-02  3.494e-02  -0.416   0.6795  
## `percent more than 1 occupant`         6.679e-05  2.861e-05   2.335   0.0250 *
## `percent more than 1 unit`            -1.619e-05  7.437e-06  -2.177   0.0358 *
## avg_median_age                        -4.412e-05  2.092e-05  -2.109   0.0416 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003477 on 38 degrees of freedom
## Multiple R-squared:  0.5834, Adjusted R-squared:  0.5067 
## F-statistic: 7.603 on 7 and 38 DF,  p-value: 9.959e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.22132 -0.10097 -0.04906  0.02301  0.65593 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                             0.2420     0.0437   5.538 1.61e-06 ***
## total_weighted_visit_hours_per_capita  -1.4137     1.5446  -0.915    0.365    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.182 on 44 degrees of freedom
## Multiple R-squared:  0.01868,    Adjusted R-squared:  -0.00362 
## F-statistic: 0.8377 on 1 and 44 DF,  p-value: 0.365
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24705 -0.10372 -0.01703  0.06174  0.46554 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            2.1386011  0.8992707   2.378  0.02253 * 
## total_weighted_visit_hours_per_capita -3.9741626  1.5800750  -2.515  0.01625 * 
## percent_under_125000                  -0.0054550  0.0028596  -1.908  0.06402 . 
## avg_household_size                    -0.1616594  0.1832951  -0.882  0.38334   
## pop_density                           22.4188610 16.1403644   1.389  0.17292   
## `percent more than 1 occupant`         0.0001968  0.0132169   0.015  0.98820   
## `percent more than 1 unit`            -0.0021937  0.0034358  -0.638  0.52699   
## avg_median_age                        -0.0262695  0.0096623  -2.719  0.00982 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1606 on 38 degrees of freedom
## Multiple R-squared:  0.3404, Adjusted R-squared:  0.2189 
## F-statistic: 2.801 on 7 and 38 DF,  p-value: 0.01876
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006590 -0.0003236 -0.0001530  0.0001438  0.0014006 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)
## (Intercept)                      0.0003230  0.0003985    0.81    0.422
## total_weighted_visits_per_capita 0.0135808  0.0163602    0.83    0.411
## 
## Residual standard error: 0.000486 on 41 degrees of freedom
## Multiple R-squared:  0.01653,    Adjusted R-squared:  -0.007458 
## F-statistic: 0.6891 on 1 and 41 DF,  p-value: 0.4113
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.092e-04 -2.096e-04  1.349e-05  1.686e-04  9.122e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       3.769e-03  2.027e-03   1.859   0.0714 .
## total_weighted_visits_per_capita -5.929e-03  1.507e-02  -0.394   0.6963  
## percent_under_125000              1.268e-05  6.396e-06   1.983   0.0553 .
## avg_household_size               -6.225e-04  4.263e-04  -1.460   0.1532  
## pop_density                      -1.509e-02  3.628e-02  -0.416   0.6801  
## `percent more than 1 occupant`    5.818e-05  3.194e-05   1.822   0.0771 .
## `percent more than 1 unit`       -1.502e-05  8.359e-06  -1.797   0.0809 .
## avg_median_age                   -4.687e-05  2.214e-05  -2.117   0.0414 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003538 on 35 degrees of freedom
## Multiple R-squared:  0.5551, Adjusted R-squared:  0.4661 
## F-statistic: 6.238 on 7 and 35 DF,  p-value: 8.754e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.20736 -0.10268 -0.05264  0.02909  0.64784 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                        0.3096     0.1478   2.095   0.0424 *
## total_weighted_visits_per_capita  -3.5324     6.0688  -0.582   0.5637  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1803 on 41 degrees of freedom
## Multiple R-squared:  0.008196,   Adjusted R-squared:  -0.01599 
## F-statistic: 0.3388 on 1 and 41 DF,  p-value: 0.5637
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24704 -0.08815 -0.01163  0.05426  0.45361 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       1.931234   0.895517   2.157   0.0380 *
## total_weighted_visits_per_capita -1.513638   6.655959  -0.227   0.8214  
## percent_under_125000             -0.005509   0.002825  -1.950   0.0592 .
## avg_household_size               -0.099177   0.188322  -0.527   0.6018  
## pop_density                      22.294698  16.027441   1.391   0.1730  
## `percent more than 1 occupant`   -0.004621   0.014111  -0.328   0.7452  
## `percent more than 1 unit`       -0.001202   0.003693  -0.325   0.7468  
## avg_median_age                   -0.026366   0.009780  -2.696   0.0107 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1563 on 35 degrees of freedom
## Multiple R-squared:  0.3636, Adjusted R-squared:  0.2364 
## F-statistic: 2.857 on 7 and 35 DF,  p-value: 0.01815
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0006035 -0.0003286 -0.0001228  0.0001654  0.0013962 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  6.046e-04  4.682e-04   1.291    0.204
## total_visit_hours_per_capita 1.357e-05  1.444e-04   0.094    0.926
## 
## Residual standard error: 0.0004901 on 41 degrees of freedom
## Multiple R-squared:  0.0002151,  Adjusted R-squared:  -0.02417 
## F-statistic: 0.008819 on 1 and 41 DF,  p-value: 0.9256
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.862e-04 -2.093e-04 -1.281e-05  1.756e-04  8.817e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     4.001e-03  1.984e-03   2.017   0.0514 .
## total_visit_hours_per_capita   -1.366e-04  1.442e-04  -0.948   0.3499  
## percent_under_125000            1.249e-05  6.268e-06   1.993   0.0541 .
## avg_household_size             -6.106e-04  4.219e-04  -1.447   0.1567  
## pop_density                    -1.529e-02  3.510e-02  -0.436   0.6658  
## `percent more than 1 occupant`  6.205e-05  3.189e-05   1.946   0.0598 .
## `percent more than 1 unit`     -1.624e-05  8.151e-06  -1.992   0.0542 .
## avg_median_age                 -4.526e-05  2.151e-05  -2.104   0.0426 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003502 on 35 degrees of freedom
## Multiple R-squared:  0.5643, Adjusted R-squared:  0.4771 
## F-statistic: 6.475 on 7 and 35 DF,  p-value: 6.3e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.28322 -0.09220 -0.04467  0.04634  0.59704 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   0.49037    0.16779   2.922  0.00563 **
## total_visit_hours_per_capita -0.08291    0.05177  -1.602  0.11693   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1756 on 41 degrees of freedom
## Multiple R-squared:  0.05888,    Adjusted R-squared:  0.03592 
## F-statistic: 2.565 on 1 and 41 DF,  p-value: 0.1169
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.23494 -0.09058 -0.00505  0.05226  0.44737 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     1.958614   0.884241   2.215   0.0334 *
## total_visit_hours_per_capita   -0.025401   0.064259  -0.395   0.6950  
## percent_under_125000           -0.005569   0.002794  -1.993   0.0541 .
## avg_household_size             -0.096773   0.188065  -0.515   0.6101  
## pop_density                    22.030517  15.646670   1.408   0.1680  
## `percent more than 1 occupant` -0.003914   0.014215  -0.275   0.7846  
## `percent more than 1 unit`     -0.001349   0.003633  -0.371   0.7128  
## avg_median_age                 -0.025952   0.009588  -2.707   0.0104 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1561 on 35 degrees of freedom
## Multiple R-squared:  0.3655, Adjusted R-squared:  0.2386 
## F-statistic: 2.881 on 7 and 35 DF,  p-value: 0.01742
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0005737 -0.0003503 -0.0001060  0.0001814  0.0013932 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                           0.0005630  0.0001979   2.845  0.00691 **
## total_weighted_visit_hours_per_capita 0.0044370  0.0095811   0.463  0.64575   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004888 on 41 degrees of freedom
## Multiple R-squared:  0.005203,   Adjusted R-squared:  -0.01906 
## F-statistic: 0.2145 on 1 and 41 DF,  p-value: 0.6457
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -0.0005772 -0.0002213 -0.0000055  0.0001328  0.0009078 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            3.356e-03  2.055e-03   1.633   0.1115  
## total_weighted_visit_hours_per_capita  2.316e-03  8.118e-03   0.285   0.7771  
## percent_under_125000                   1.229e-05  6.339e-06   1.938   0.0607 .
## avg_household_size                    -5.837e-04  4.449e-04  -1.312   0.1981  
## pop_density                           -2.272e-02  3.855e-02  -0.590   0.5593  
## `percent more than 1 occupant`         5.656e-05  3.238e-05   1.746   0.0895 .
## `percent more than 1 unit`            -1.300e-05  8.457e-06  -1.537   0.1332  
## avg_median_age                        -4.440e-05  2.194e-05  -2.023   0.0507 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0003542 on 35 degrees of freedom
## Multiple R-squared:  0.5541, Adjusted R-squared:  0.465 
## F-statistic: 6.214 on 7 and 35 DF,  p-value: 9.046e-05
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.17718 -0.09277 -0.04585  0.01357  0.59842 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.14278    0.07198   1.984    0.054 .
## total_weighted_visit_hours_per_capita  4.30102    3.48427   1.234    0.224  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1778 on 41 degrees of freedom
## Multiple R-squared:  0.03583,    Adjusted R-squared:  0.01232 
## F-statistic: 1.524 on 1 and 41 DF,  p-value: 0.2241
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.24326 -0.08424 -0.01491  0.04761  0.45343 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            1.778592   0.906289   1.963   0.0577 .
## total_weighted_visit_hours_per_capita  1.170389   3.579703   0.327   0.7457  
## percent_under_125000                  -0.005620   0.002795  -2.010   0.0521 .
## avg_household_size                    -0.080282   0.196196  -0.409   0.6849  
## pop_density                           19.249624  16.996595   1.133   0.2651  
## `percent more than 1 occupant`        -0.005404   0.014280  -0.378   0.7074  
## `percent more than 1 unit`            -0.000462   0.003729  -0.124   0.9021  
## avg_median_age                        -0.025532   0.009676  -2.639   0.0123 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1562 on 35 degrees of freedom
## Multiple R-squared:  0.3646, Adjusted R-squared:  0.2376 
## F-statistic:  2.87 on 7 and 35 DF,  p-value: 0.01776
## 
## [1] "Cases start date: 2020-07-06"
## [1] "Visits start date: 2020-06-22"
## [1] "Weighted visits (by area and other visitors):"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.025e-04 -2.955e-04 -5.213e-05  1.818e-04  1.674e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       0.0008481  0.0003025   2.804  0.00748 **
## total_weighted_visits_per_capita -0.0136820  0.0125016  -1.094  0.27973   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004367 on 44 degrees of freedom
## Multiple R-squared:  0.0265, Adjusted R-squared:  0.004375 
## F-statistic: 1.198 on 1 and 44 DF,  p-value: 0.2797
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.637e-04 -1.408e-04 -1.455e-05  1.192e-04  6.944e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       3.602e-03  1.432e-03   2.515 0.016259 *  
## total_weighted_visits_per_capita -2.976e-02  9.404e-03  -3.164 0.003057 ** 
## percent_under_125000              1.714e-05  4.614e-06   3.714 0.000652 ***
## avg_household_size               -3.218e-04  2.872e-04  -1.120 0.269542    
## pop_density                      -9.304e-03  2.836e-02  -0.328 0.744647    
## `percent more than 1 occupant`    1.636e-05  2.145e-05   0.763 0.450270    
## `percent more than 1 unit`       -1.274e-05  5.389e-06  -2.364 0.023310 *  
## avg_median_age                   -5.498e-05  1.575e-05  -3.492 0.001233 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002585 on 38 degrees of freedom
## Multiple R-squared:  0.7055, Adjusted R-squared:  0.6513 
## F-statistic: 13.01 on 7 and 38 DF,  p-value: 2.12e-08
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.025e-04 -2.955e-04 -5.213e-05  1.818e-04  1.674e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       0.0008481  0.0003025   2.804  0.00748 **
## total_weighted_visits_per_capita -0.0136820  0.0125016  -1.094  0.27973   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004367 on 44 degrees of freedom
## Multiple R-squared:  0.0265, Adjusted R-squared:  0.004375 
## F-statistic: 1.198 on 1 and 44 DF,  p-value: 0.2797
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.637e-04 -1.408e-04 -1.455e-05  1.192e-04  6.944e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       3.602e-03  1.432e-03   2.515 0.016259 *  
## total_weighted_visits_per_capita -2.976e-02  9.404e-03  -3.164 0.003057 ** 
## percent_under_125000              1.714e-05  4.614e-06   3.714 0.000652 ***
## avg_household_size               -3.218e-04  2.872e-04  -1.120 0.269542    
## pop_density                      -9.304e-03  2.836e-02  -0.328 0.744647    
## `percent more than 1 occupant`    1.636e-05  2.145e-05   0.763 0.450270    
## `percent more than 1 unit`       -1.274e-05  5.389e-06  -2.364 0.023310 *  
## avg_median_age                   -5.498e-05  1.575e-05  -3.492 0.001233 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002585 on 38 degrees of freedom
## Multiple R-squared:  0.7055, Adjusted R-squared:  0.6513 
## F-statistic: 13.01 on 7 and 38 DF,  p-value: 2.12e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14718 -0.05690 -0.01554  0.04035  0.30491 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       0.18495    0.06408   2.886  0.00602 **
## total_weighted_visits_per_capita -2.10356    2.64857  -0.794  0.43133   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09253 on 44 degrees of freedom
## Multiple R-squared:  0.01413,    Adjusted R-squared:  -0.008272 
## F-statistic: 0.6308 on 1 and 44 DF,  p-value: 0.4313
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.222815 -0.042959 -0.006341  0.037839  0.175960 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.258431   0.443510   0.583   0.5635  
## total_weighted_visits_per_capita -5.809619   2.912173  -1.995   0.0533 .
## percent_under_125000              0.001133   0.001429   0.793   0.4327  
## avg_household_size                0.108206   0.088949   1.217   0.2313  
## pop_density                       1.736852   8.781825   0.198   0.8443  
## `percent more than 1 occupant`   -0.015484   0.006643  -2.331   0.0252 *
## `percent more than 1 unit`        0.001921   0.001669   1.151   0.2569  
## avg_median_age                   -0.008596   0.004876  -1.763   0.0860 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08004 on 38 degrees of freedom
## Multiple R-squared:  0.3629, Adjusted R-squared:  0.2455 
## F-statistic: 3.092 on 7 and 38 DF,  p-value: 0.01113
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.244e-04 -3.069e-04 -7.239e-05  2.224e-04  1.736e-03 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  4.059e-04  3.792e-04   1.070    0.290
## total_visit_hours_per_capita 3.689e-05  1.160e-04   0.318    0.752
## 
## Residual standard error: 0.0004421 on 44 degrees of freedom
## Multiple R-squared:  0.002294,   Adjusted R-squared:  -0.02038 
## F-statistic: 0.1012 on 1 and 44 DF,  p-value: 0.7519
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.606e-04 -1.383e-04  3.920e-06  8.665e-05  8.030e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     3.472e-03  1.549e-03   2.241 0.030969 *  
## total_visit_hours_per_capita   -1.973e-04  9.150e-05  -2.157 0.037404 *  
## percent_under_125000            1.808e-05  4.881e-06   3.704 0.000672 ***
## avg_household_size             -3.003e-04  3.063e-04  -0.980 0.333109    
## pop_density                    -5.047e-02  2.633e-02  -1.917 0.062757 .  
## `percent more than 1 occupant`  1.980e-05  2.271e-05   0.872 0.388796    
## `percent more than 1 unit`     -1.165e-05  5.699e-06  -2.043 0.047997 *  
## avg_median_age                 -5.528e-05  1.739e-05  -3.179 0.002936 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002742 on 38 degrees of freedom
## Multiple R-squared:  0.6685, Adjusted R-squared:  0.6075 
## F-statistic: 10.95 on 7 and 38 DF,  p-value: 1.774e-07
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.244e-04 -3.069e-04 -7.239e-05  2.224e-04  1.736e-03 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                  4.059e-04  3.792e-04   1.070    0.290
## total_visit_hours_per_capita 3.689e-05  1.160e-04   0.318    0.752
## 
## Residual standard error: 0.0004421 on 44 degrees of freedom
## Multiple R-squared:  0.002294,   Adjusted R-squared:  -0.02038 
## F-statistic: 0.1012 on 1 and 44 DF,  p-value: 0.7519
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.606e-04 -1.383e-04  3.920e-06  8.665e-05  8.030e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     3.472e-03  1.549e-03   2.241 0.030969 *  
## total_visit_hours_per_capita   -1.973e-04  9.150e-05  -2.157 0.037404 *  
## percent_under_125000            1.808e-05  4.881e-06   3.704 0.000672 ***
## avg_household_size             -3.003e-04  3.063e-04  -0.980 0.333109    
## pop_density                    -5.047e-02  2.633e-02  -1.917 0.062757 .  
## `percent more than 1 occupant`  1.980e-05  2.271e-05   0.872 0.388796    
## `percent more than 1 unit`     -1.165e-05  5.699e-06  -2.043 0.047997 *  
## avg_median_age                 -5.528e-05  1.739e-05  -3.179 0.002936 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002742 on 38 degrees of freedom
## Multiple R-squared:  0.6685, Adjusted R-squared:  0.6075 
## F-statistic: 10.95 on 7 and 38 DF,  p-value: 1.774e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13666 -0.05866 -0.01644  0.04207  0.28628 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   0.13892    0.07992   1.738   0.0891 .
## total_visit_hours_per_capita -0.00115    0.02444  -0.047   0.9627  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.09319 on 44 degrees of freedom
## Multiple R-squared:  5.034e-05,  Adjusted R-squared:  -0.02268 
## F-statistic: 0.002215 on 1 and 44 DF,  p-value: 0.9627
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.257283 -0.045722 -0.006798  0.040942  0.183464 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                     0.058138   0.474908   0.122   0.9032  
## total_visit_hours_per_capita   -0.007412   0.028043  -0.264   0.7930  
## percent_under_125000            0.001345   0.001496   0.899   0.3744  
## avg_household_size              0.099896   0.093895   1.064   0.2941  
## pop_density                    -6.678740   8.069202  -0.828   0.4130  
## `percent more than 1 occupant` -0.013875   0.006960  -1.994   0.0534 .
## `percent more than 1 unit`      0.002458   0.001747   1.407   0.1676  
## avg_median_age                 -0.006328   0.005330  -1.187   0.2425  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08405 on 38 degrees of freedom
## Multiple R-squared:  0.2974, Adjusted R-squared:  0.168 
## F-statistic: 2.298 on 7 and 38 DF,  p-value: 0.04683
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.642e-04 -3.014e-04 -6.071e-05  1.902e-04  1.744e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                           4.948e-04  8.032e-05   6.160 1.96e-07 ***
## total_weighted_visit_hours_per_capita 1.371e-03  2.164e-03   0.634     0.53    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004406 on 44 degrees of freedom
## Multiple R-squared:  0.009039,   Adjusted R-squared:  -0.01348 
## F-statistic: 0.4013 on 1 and 44 DF,  p-value: 0.5297
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.159e-04 -1.661e-04 -4.240e-06  1.473e-04  9.355e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            2.364e-03  1.575e-03   1.501  0.14158   
## total_weighted_visit_hours_per_capita -1.284e-05  2.128e-03  -0.006  0.99522   
## percent_under_125000                   1.825e-05  5.286e-06   3.452  0.00138 **
## avg_household_size                    -3.795e-04  3.239e-04  -1.172  0.24865   
## pop_density                           -5.277e-02  3.267e-02  -1.615  0.11458   
## `percent more than 1 occupant`         2.572e-05  2.433e-05   1.057  0.29716   
## `percent more than 1 unit`            -9.596e-06  5.954e-06  -1.612  0.11531   
## avg_median_age                        -4.057e-05  1.838e-05  -2.207  0.03343 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002905 on 38 degrees of freedom
## Multiple R-squared:  0.6279, Adjusted R-squared:  0.5594 
## F-statistic: 9.162 on 7 and 38 DF,  p-value: 1.378e-06
## 
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.642e-04 -3.014e-04 -6.071e-05  1.902e-04  1.744e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                           4.948e-04  8.032e-05   6.160 1.96e-07 ***
## total_weighted_visit_hours_per_capita 1.371e-03  2.164e-03   0.634     0.53    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004406 on 44 degrees of freedom
## Multiple R-squared:  0.009039,   Adjusted R-squared:  -0.01348 
## F-statistic: 0.4013 on 1 and 44 DF,  p-value: 0.5297
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.159e-04 -1.661e-04 -4.240e-06  1.473e-04  9.355e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            2.364e-03  1.575e-03   1.501  0.14158   
## total_weighted_visit_hours_per_capita -1.284e-05  2.128e-03  -0.006  0.99522   
## percent_under_125000                   1.825e-05  5.286e-06   3.452  0.00138 **
## avg_household_size                    -3.795e-04  3.239e-04  -1.172  0.24865   
## pop_density                           -5.277e-02  3.267e-02  -1.615  0.11458   
## `percent more than 1 occupant`         2.572e-05  2.433e-05   1.057  0.29716   
## `percent more than 1 unit`            -9.596e-06  5.954e-06  -1.612  0.11531   
## avg_median_age                        -4.057e-05  1.838e-05  -2.207  0.03343 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002905 on 38 degrees of freedom
## Multiple R-squared:  0.6279, Adjusted R-squared:  0.5594 
## F-statistic: 9.162 on 7 and 38 DF,  p-value: 1.378e-06
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_start_non0)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.16893 -0.05394 -0.01221  0.03916  0.29894 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.10969    0.01567   6.999 1.15e-08 ***
## total_weighted_visit_hours_per_capita  1.16995    0.42237   2.770  0.00818 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08599 on 44 degrees of freedom
## Multiple R-squared:  0.1485, Adjusted R-squared:  0.1291 
## F-statistic: 7.673 on 1 and 44 DF,  p-value: 0.00818
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_non0_dem)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.218624 -0.053546 -0.007116  0.045504  0.184541 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            -0.122848   0.438899  -0.280    0.781  
## total_weighted_visit_hours_per_capita   1.031627   0.593001   1.740    0.090 .
## percent_under_125000                    0.001883   0.001473   1.278    0.209  
## avg_household_size                      0.080947   0.090262   0.897    0.375  
## pop_density                           -15.037014   9.105019  -1.652    0.107  
## `percent more than 1 occupant`         -0.011384   0.006781  -1.679    0.101  
## `percent more than 1 unit`              0.002555   0.001659   1.540    0.132  
## avg_median_age                         -0.002310   0.005123  -0.451    0.655  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08097 on 38 degrees of freedom
## Multiple R-squared:  0.3481, Adjusted R-squared:  0.228 
## F-statistic: 2.898 on 7 and 38 DF,  p-value: 0.01575
## 
## [1] "Weighted visits:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -6.012e-04 -2.902e-04 -7.512e-05  1.581e-04  1.667e-03 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.0007361  0.0003210   2.293   0.0271 *
## total_weighted_visits_per_capita -0.0075124  0.0135019  -0.556   0.5810  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004328 on 41 degrees of freedom
## Multiple R-squared:  0.007494,   Adjusted R-squared:  -0.01671 
## F-statistic: 0.3096 on 1 and 41 DF,  p-value: 0.581
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.649e-04 -1.463e-04 -1.681e-05  1.055e-04  7.118e-04 
## 
## Coefficients:
##                                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       3.430e-03  1.400e-03   2.449 0.019456 *  
## total_weighted_visits_per_capita -2.693e-02  9.562e-03  -2.816 0.007938 ** 
## percent_under_125000              1.772e-05  4.462e-06   3.972 0.000339 ***
## avg_household_size               -1.601e-04  3.024e-04  -0.530 0.599800    
## pop_density                      -1.095e-02  2.783e-02  -0.394 0.696317    
## `percent more than 1 occupant`   -1.629e-06  2.276e-05  -0.072 0.943349    
## `percent more than 1 unit`       -9.715e-06  5.557e-06  -1.748 0.089169 .  
## avg_median_age                   -6.460e-05  1.580e-05  -4.089 0.000241 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.000249 on 35 degrees of freedom
## Multiple R-squared:  0.7196, Adjusted R-squared:  0.6636 
## F-statistic: 12.83 on 7 and 35 DF,  p-value: 4.891e-08
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.14596 -0.05886 -0.02114  0.03596  0.27570 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                       0.15039    0.06587   2.283   0.0277 *
## total_weighted_visits_per_capita -0.24640    2.77054  -0.089   0.9296  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08881 on 41 degrees of freedom
## Multiple R-squared:  0.0001929,  Adjusted R-squared:  -0.02419 
## F-statistic: 0.00791 on 1 and 41 DF,  p-value: 0.9296
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.150824 -0.044839  0.006702  0.030281  0.158616 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                       0.279431   0.396635   0.705  0.48578   
## total_weighted_visits_per_capita -3.552594   2.708443  -1.312  0.19817   
## percent_under_125000              0.001207   0.001264   0.955  0.34630   
## avg_household_size                0.125112   0.085657   1.461  0.15304   
## pop_density                       2.656061   7.883363   0.337  0.73819   
## `percent more than 1 occupant`   -0.019727   0.006446  -3.060  0.00423 **
## `percent more than 1 unit`        0.002353   0.001574   1.495  0.14384   
## avg_median_age                   -0.011432   0.004475  -2.555  0.01514 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07052 on 35 degrees of freedom
## Multiple R-squared:  0.4619, Adjusted R-squared:  0.3542 
## F-statistic: 4.291 on 7 and 35 DF,  p-value: 0.00162
## 
## [1] "Visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.804e-04 -2.825e-04 -6.489e-05  1.490e-04  1.692e-03 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   7.129e-04  4.084e-04   1.745   0.0884 .
## total_visit_hours_per_capita -4.642e-05  1.234e-04  -0.376   0.7087  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004337 on 41 degrees of freedom
## Multiple R-squared:  0.003441,   Adjusted R-squared:  -0.02087 
## F-statistic: 0.1416 on 1 and 41 DF,  p-value: 0.7087
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.497e-04 -1.302e-04 -2.032e-05  1.031e-04  7.713e-04 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     4.030e-03  1.520e-03   2.651 0.011974 *  
## total_visit_hours_per_capita   -2.212e-04  9.072e-05  -2.439 0.019952 *  
## percent_under_125000            1.790e-05  4.567e-06   3.920 0.000393 ***
## avg_household_size             -2.632e-04  3.071e-04  -0.857 0.397164    
## pop_density                    -3.768e-02  2.569e-02  -1.467 0.151355    
## `percent more than 1 occupant`  7.284e-06  2.301e-05   0.316 0.753509    
## `percent more than 1 unit`     -1.191e-05  5.880e-06  -2.026 0.050442 .  
## avg_median_age                 -6.796e-05  1.675e-05  -4.056 0.000265 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002549 on 35 degrees of freedom
## Multiple R-squared:  0.7061, Adjusted R-squared:  0.6473 
## F-statistic: 12.01 on 7 and 35 DF,  p-value: 1.07e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.15473 -0.05460 -0.02079  0.03495  0.28856 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   0.22469    0.08269   2.717  0.00959 **
## total_visit_hours_per_capita -0.02450    0.02498  -0.981  0.33237   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.08779 on 41 degrees of freedom
## Multiple R-squared:  0.02293,    Adjusted R-squared:  -0.0008992 
## F-statistic: 0.9623 on 1 and 41 DF,  p-value: 0.3324
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.139854 -0.044430 -0.001602  0.033046  0.163977 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                     0.289131   0.427550   0.676  0.50333   
## total_visit_hours_per_capita   -0.018515   0.025515  -0.726  0.47288   
## percent_under_125000            0.001257   0.001284   0.978  0.33459   
## avg_household_size              0.111206   0.086367   1.288  0.20633   
## pop_density                    -1.282950   7.224415  -0.178  0.86007   
## `percent more than 1 occupant` -0.018492   0.006473  -2.857  0.00715 **
## `percent more than 1 unit`      0.002253   0.001654   1.362  0.18176   
## avg_median_age                 -0.011175   0.004712  -2.372  0.02335 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07169 on 35 degrees of freedom
## Multiple R-squared:  0.4438, Adjusted R-squared:  0.3325 
## F-statistic: 3.989 on 7 and 35 DF,  p-value: 0.002647
## 
## [1] "Weighted visit hours:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -5.505e-04 -2.739e-04 -6.705e-05  1.724e-04  1.708e-03 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                           5.266e-04  8.028e-05   6.560 6.92e-08 ***
## total_weighted_visit_hours_per_capita 1.615e-03  2.143e-03   0.754    0.455    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0004314 on 41 degrees of freedom
## Multiple R-squared:  0.01367,    Adjusted R-squared:  -0.01039 
## F-statistic: 0.5681 on 1 and 41 DF,  p-value: 0.4553
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -4.588e-04 -1.520e-04 -2.766e-05  1.070e-04  8.839e-04 
## 
## Coefficients:
##                                         Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                            2.850e-03  1.512e-03   1.885  0.06777 . 
## total_weighted_visit_hours_per_capita -2.293e-03  2.177e-03  -1.053  0.29946   
## percent_under_125000                   1.741e-05  4.956e-06   3.514  0.00124 **
## avg_household_size                    -1.888e-04  3.358e-04  -0.562  0.57753   
## pop_density                           -2.793e-02  3.219e-02  -0.868  0.39155   
## `percent more than 1 occupant`        -9.807e-07  2.610e-05  -0.038  0.97025   
## `percent more than 1 unit`            -7.265e-06  6.060e-06  -1.199  0.23865   
## avg_median_age                        -6.334e-05  1.915e-05  -3.308  0.00218 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.0002715 on 35 degrees of freedom
## Multiple R-squared:  0.6667, Adjusted R-squared:    0.6 
## F-statistic:    10 on 7 and 35 DF,  p-value: 8.468e-07
## 
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, 
##     data = visits_cases_change_exc)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.13632 -0.05127 -0.01972  0.03413  0.28984 
## 
## Coefficients:
##                                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                            0.11779    0.01482   7.951 7.75e-10 ***
## total_weighted_visit_hours_per_capita  1.25160    0.39555   3.164  0.00293 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07962 on 41 degrees of freedom
## Multiple R-squared:  0.1963, Adjusted R-squared:  0.1767 
## F-statistic: 10.01 on 1 and 41 DF,  p-value: 0.002928
## 
## [1] "Control for demographic variables:"
## 
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + 
##     percent_under_125000 + avg_household_size + pop_density + 
##     `percent more than 1 occupant` + `percent more than 1 unit` + 
##     avg_median_age, data = visits_cases_change_dem_exc)
## 
## Residuals:
##       Min        1Q    Median        3Q       Max 
## -0.129858 -0.049494 -0.002836  0.034202  0.180217 
## 
## Coefficients:
##                                        Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                            0.114389   0.398391   0.287   0.7757  
## total_weighted_visit_hours_per_capita  0.478914   0.573507   0.835   0.4093  
## percent_under_125000                   0.001519   0.001306   1.163   0.2526  
## avg_household_size                     0.093835   0.088488   1.060   0.2962  
## pop_density                           -5.822366   8.481754  -0.686   0.4969  
## `percent more than 1 occupant`        -0.016409   0.006878  -2.386   0.0226 *
## `percent more than 1 unit`             0.002432   0.001597   1.523   0.1367  
## avg_median_age                        -0.007888   0.005045  -1.563   0.1269  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.07152 on 35 degrees of freedom
## Multiple R-squared:  0.4464, Adjusted R-squared:  0.3357 
## F-statistic: 4.032 on 7 and 35 DF,  p-value: 0.002466
model_results_wt <- model_results_wt %>%
  mutate(visits_start_date = as.Date(cases_start_date) - visits_lag) %>%
  mutate(r_squared = as.numeric(r_squared), p_val = as.numeric(p_val), coef_val = as.numeric(coef_val))

model_results_1_wt <- rbind(model_results_1 %>% mutate(weight_type = "unweighted"), model_results_wt)

Plots of model fits over time, weighted vs unweighted

Comparing the weighted and unweighted results. Specifically first for the change in cases metric:

model_results_1_wt_change_cases <- model_results_1_wt %>% 
  filter(model_type == "change in cases") 

model_results_1_wt_change_cases %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared, 1 week interval, 14 day lag, Alameda, change in cases")
model_results_1_wt_change_cases %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coef, 1 week interval, 14 day lag, Alameda, change in cases")
# hard to see unweighted and visit hours so just look at those
model_results_1_wt_change_cases %>% filter(weight_type == "visit hours" | weight_type == "unweighted") %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coef, 1 week interval, 14 day lag, Alameda, change in cases")
model_results_1_wt_change_cases %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "Coef p val, 1 week interval, 14 day lag, Alameda, change in cases")

It seems that unweighted visits do best initially, but then visit hours and weighted visits get better, and there is a period when unweighted visits and visit hours start to fall off in which weighted visits start doing better, relatively. But past May 18th/25th all seem to do poorly. This could make sense if during that middle period, that is when the relevant dynamics were most at play that we can assess with weighted visits: things were starting to reopen/people were starting to move around more, but weren’t wearing masks as much yet, so visits to locations where social distancing was less possible (due to space constraints or many visitors per hour) would be more impactful?

Same but for change in cases for values that start at 10 cases or above:

model_results_1_wt_change_cases_10 <- model_results_1_wt %>% 
  filter(model_type == "change in cases, starting above 10")

model_results_1_wt_change_cases_10 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
  add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared, 1 week interval, 14 day lag, Alameda, change in cases start >=10")
model_results_1_wt_change_cases_10 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coef, 1 week interval, 14 day lag, Alameda, change in cases start >=10")
# hard to see unweighted and visit hours so just look at those
model_results_1_wt_change_cases_10 %>% filter(weight_type == "visit hours" | weight_type == "unweighted") %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
  add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coef, 1 week interval, 14 day lag, Alameda, change in cases start >=10")
model_results_1_wt_change_cases_10 %>%
  plot_ly() %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
  add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
  layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "Coef p val, 1 week interval, 14 day lag, Alameda, change in cases start >=10")

Weighted visits do even better, relatively, in the middle time period with this metric. That’s interesting; I’m not sure what might explain that. Maybe that’s just when more (reliable) data becomes available?